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SUMMARY 


Utilizing semi-actuator disk theory, a mathematical analysis was developed to predict the 
unsteady aerodynamic environment for a cascade of airfoils harmonically oscillating in choked 
How. In the model, a normal shock is located in the blade passage, its position depending on 
the time dependent geometry and pressure perturbations of the system. In addition to shock 
dynamics, the model includes the effect of compressibility, interblade phase lag, and an 
unsteady flow field upstream and downstream of the cascade. 

Calculated unsteady aerodynamic forces using the semiactuator disk model were com- 
pared to experimental data from isolated airfoil wind tunnel tests. The wind tunnel data 
simulate the special cascade condition of 180 deg interblade phase. Agreement between 
experimental and theory was reasonable. The semiactuator theory was also evaluated using 
compressor airfoil choke flutter data from single-spool tests of the FlOO turbofan engine. The* 
model was incorporated into a flutter prediction program in which calculated aerodynamic 
damping is correlated to construct flutter onset boundaries. The calculated flutter boundaries 
compared well with the measured flutter boundaries. Based on these evaluations, it was 
concluded that a conservative choke flutter design system could be established based on the 
semiactuator disk model. 


INTRODUCTION 


Compressor airfoil flutter remains a continuing problem in the dijsign and development 
of advanced aircraft gas turbine engines. Flutter occurs over a wide range of operating condi- 
tions, but can be categorized into four regions: (1) subsonic/transonic stall, (2) subsonic/tran- 
sonic choke, (3) supersonic unstalled, and (4) supersonic stalled, as shown in Figure 1. 



Fif’ure 1. Possible Flutter Boundaries 


The subsonic stall flutter problem has been investigated by a number of authors. Jeffers 
(Reference 1) devised a semi-empirical unsteady aerodynamic theory based on combining the 
unsteady unstalled aerodynamic forces from Smith’s theory (Reference 2) with correction from 
theory and experimental data of isolated airfoils operating at high incidence in incompressi- 
ble flows. Sisto (Reference 3) used steady aerodynamic data to treat the unsteady flow prob- 
lem in a quasi-steady manner. Perumal (Reference 4) developed an essentially “Helmholtz 
flow” model, while Yashima and Tanaka (Reference 5) adapted a rigfid wake model to obtain 
reasonably good correlation with linear cascade experimental data. Most recently, Chi (Refer- 
ence 6) used a small perturbation technique to model flow separation. 

The supersonic flow region has also been discussed by a number of authors. For the 
unstalled regime, a finite difference method was first used by Verdon (Reference 7) and Brix 
and Platzer (Reference 8) to model the unsteady supersonic aerodynamics. Other approaches 
by Kurosaka (Reference 9) and Verdon and McCune (Reference 10) extend a velocity potential 
method first developed by Miles (References 11 and 12) for simple supersonic cascade 
configurations. 
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Recently, an unsteady actuator disk model was developed by Adamczyk (Reference 13) 
with encouraging results for supersonic stall bending flutter. The supersonic stalled region was 
also investigated by Goldstein, Braun and Adamczyk (Reference 14) in which the small 
perturbation analysis included the presence of a strong in passage shock. 

The choke flutter problem that has arisen in advanced gas turbine engines with variable 
inlet guide vanes poses a very serious problem and no analytical model exists at present to 
predict the unsteady aerodynamic environment. The complex nature of this environment has 
thus far resisted rigorous mathematical formulation, but a “simplified” model has been under- 
taken herein based on a modified semi-actuator disk approach with one-dimensional channel 
flow. The channel flow approach originally used hy NASA-NACA to analyze inlet diffusers of 
ramjet and turbojet engines was selected because airfoil cascades can exhibit flow characteris- 
tics similar to those of inlet diffusers. The flow in an inlet diffuser and a choked blade pas- 
sage both contain a shock wave whose position strongly affects the pressure forces on the 
channel walls or blade surfaces. The position of the shock depends upon channel geometry 
and, therefore, in the case of the airfoil cascade, can be related to the vibratory motion of the 
airfoils in flutter. A preliminary analysis was completed in the initial phase of this effort 
which produced promising results when used in a stability prediction of a compressor rotor 
that experienced choke flutter at off-schedule operating conditions. However, concern for cer- 
tain aspects of the preliminary model led to the present approach which includes a modified 
semi-actuator disk method to describe the upstream and downstream flow fields. 

The section following contains the analytical derivation and definition of the mathemat- 
ical model, including a steady-state interblade analysis and a linearized small perturbation 
analysis. The next section details the results obtained using this channel flow model. In order 
to rid the text of this report of complex, cumbersome, and lengthy mathematical manipula- 
tions and assumptions, numerous appendices are included herewith which allow model devel- 
opment in a straight forward manner. 
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ANALYTICAL MODEL 


Model Definition 

The semi-actuator disk model consists of two solutions: a steady-state intrablade analysis 
and an unsteady linearized small perturbation analysis. The steady-state analysis utilizes 
steady isentropic one-dimensional relations to define the intrablade conditions. An iterative 
procedure, ending in the match of the known static pressure ratio across the blade, locates the 
steady-state normal shock position. The procedure appears in Appendix H. The flow entering 
and leaving the cascade is defined externally by a streamline analysis. The unsteady solution 
consists of three basic flow fields: (1) upstream flow field, (2) intrablade flow analysis, and (3) 
a downstream flow field, as shown in Figure 2. 



Figure 2. Unsteady Flow Field Description 


Assumptions and Boundary Conditions 


Assumptions 

The following assumptions were made relative to the flow within the three basic flow 
fields of the unsteady solution: 

1. Upstream Flow Field — The flow is assumed to be two-dimensional, 
inviscid, irrotational, unsteady, and compressible. 
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2. Intrablade Flow Analysis — The flow is assumed to be one-dimensional, 
inviscid, unsteady, and compressible. Figure 3 details the division of the 
flow field into three sections: a subsonic section from blade leading edge 
to the blade throat or M = 1, a supersonic section from blade throat to 
shock location, and a subsonic section fi"om shock location to blade trail- 
ing edge. 

3. Downstream Flow Field — The flow is assumed to be two-dimensional, 
rotational, inviscid, compressible, and constructed of the sum of two basic 
solutions: an irrotational part similar to the upstream flow field and a 
rotational part due to the vortices being shed off the blade trailing edge. 



Figure 3. Intrablade Flow Field 


Boundary Conditions 

Boundary conditions for the unsteady solutions consist of the following; 

1. The mass flow is continuous at the leading- and trailing-edge lines. 

2. Conservation of mass, energy, and momentum was observed within each 
section of the blade channel. 

3. The Kutta condition at the trailing edge is satisfied by specifying the exit 
air angle. 
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Derivation of the Unsteady Model 


Upstream and Downstream irrotational Flow Equations 
Continuity Equation 

Establishing a coordinate system, as shown in Figure 4 produces the following form for 
the continuity equation: 

c>(puA).„ + ^ ^ 

3x dy dt 



Figure 4. 


Cascade Geometry 
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Small perturbations of the flow variables are assumed as follows: 


P — p p' u = u + u' v = v + v' 

Substituting the above relationships into Equation 1, subtracting out the steady-state equa- 
tion, and neglecting higher order terms gives the small perturbation form of the continuity 
equation, as follows; 



^ ( du' ico 


av'tco 

9y 


) 


= 0 


(2) 


Momentum Equation 

In tensor notation, the two-dimensional form of the momentum equation is as follows: 

a (putUj) ^ a (/oui) ^ _ ap 

axj 9t 9X| 

which becomes 

x-direction 



a (pU: 


a (pu 


ax 


9y 


+ 


a (pu*oo) 
at 


ap 


ax 


(3a) 


y-direction 

9 (pUiooV.j a (pViooV^co) a(pv^co) 

dx dy ^ 9t 

Assuming small perturbations of the flow variables in Equations 3a and 3b, neglecting 
higher order terms and subtracting out the mean flow equation, gives the small perturbation 
forms of the momentum equation, as shown below; 

x-direction 


9 p^c 
9y 


(3b) 


aiu''±oo _ au'ico _ 9u'ico -1 ( ap'±oc\ 

at 9x - 9y p ±£c ' dx. ' 

y-direction 

ay'io. , _ 9y'±oc , _ 9v ' -i ( ap'±oo^ 


(4a) 


(4b) 


Nondimensionatized Wave Equation 

Flow entering the cascade is assumed to be irrotational and can therefore be represented 
by a potential function as can the irrotational portion of the flow leaving the cascade. The 
velocity perturbations can then be represented in the following forms: 
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+0O 


9y 


(5) 


u' 


±» 


34 »' 

3x 


Substituting these relationships into the continuity and momentum equations and combining 
these equations gives the small perturbation form of the nondimensionalized wave equation 
(after some manipulation), as shown: 






+ 2M, ,M, 

at** '' 

* ** 3x*at*^ 


1 




. a 1) 

' ax*3y* ' 

I ±- 

' 3x** 


dy*dV 






( 6 ) 


where x and y are nondimensionalized by semichord b, and time is nondimensionalized by 
tbe quantity U/b. The derivation of the wave equation appears in Reference 15. 

Because Equation 6 is linear, a solution can be obtained by superposition of fundamental 
solutions, taking the following form: 


exp i(Bx + Cy + kt) (7) 

where A, B, and C are unknown constants and k represents the reduced frequency based on 
semichord k = bw/U. Assuming the blades vibrate with a constant interblade phase angle <x, 
the tangential wave constant C is controlled by an unsteady periodicity condition. Any 
perturbation velocity potential at (x„, y„ + s) leads or lags the same potential at (x,„ y„) by a at 
all times. This may be expressed as follows: 


4>' (x<„ y„ + s, t) = 4>' (x,„ y„, t) e"' (b) 

where s defines the blade gap-to-semichord ratio. Substituting Equation 8 into Equation 7 
gives 


C = 

s 

Substituting Equation 7 into Equation 6, dividing by A,„ exp i(Bx + Cx + kt) and solving for 
B yields 

g ^ -Di ± \/D] + p2 (9) 

where, 
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D. = 

Da = + 2M,„ My^» Ck - C^ ^ 

= 1 - Mx\. 

= 1 - My%. 


'Phils, the solution takes the form: 


(X, y, t) = [A, + Aa [e"'-'’ * '*’] (10) 

The velocity perturbation must approach zero in the far field. Now if the quantity D," 

< 0, B, and complex conjugates. In order to satisfy the far field condition, the solution 

must take the following form: 

4>' (x, y, t) = A, exp (iB,x) exp i(Cy + kt) 

Now consider the case where Di^ + /Jx^ D 2 > 0. Here Bi and B 2 will be real numbers and the 
boundedness condition cannot be applied in the far field. This problem can be solved by 
representing the flow field as containing a transient part. The assumed solution becomes form 


<|)'^(x, y, t) = Aj^cc exp i [(Bx + Cy + kt) + k,t] (12) 

Substituting Equation 12 into Equation 6 and dividing by A^„ exp[i(Bx + Cy + kt) + Kt] 
gives 


B:. 


D? ±VDf + 131 


and 


B, 


- i (My C + M toe k) 


( 111 ) 


(14) 


Equation 12 physically implies an unsteady solution under the influence of a slowly divergent, 
oscillating source with the earlier emitted wave being stronger than the one following it. Since 
a finite period of time is required for a disturbance to propagate to the far field, the amplitude 
of the response should decrease with increasing distance from the source. Therefore, the 
proper upstream solution can be chosen. By letting k, approach zero, the correct wave solutions 
on either side of the harmonically vibrating source can be recovered, as shown in Equation 15. 
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exp i[x (Bi + Bin,„g) + Cy + kt] 


(15) 


A summary of the correct solutions for the irrotationai upstream and downstream flow fields 
is presented in Table 1. 

Intrablade Flow Equations and Solutions 

Perturbation Equations and Solutions for Region 1 



Figure 5. Region 1 from Blade Leading-Edge Line to the Channel Throat, 
or M ^ I 


The first region, as shown in Figure 5, defines a control volume from the blade leading- 
edge line to the channel throat, or M = 1, with the coordinate system aligned with the chord 
line. In order to define the unsteady flow field, three unknowns must be obtained: (1) the 
complex constant describing the upstream flow field, (2) the density perturbation at the 
throat, and (3) the velocity perturbation at the throat. This requires the use of the unsteady 
form of the mass, momentum, and energy equations. 

Equation 16 expresses the conservation of mass for a control volume (Reference 16); 

-to = 0 = J/ pUdA + pa(vol) Ofi' 

For the control volume shown in the above figure, this can be expressed as follows: 


W* - Winiet 


9(P,V,) 

3t 


(17) 


Assuming small perturbations on the mean How variables, neglecting higher order terms 
and subtracting out the mean flow equation, the following result is obtained after expanding 
Equation 17: 


IL- 
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o 


TABLE 1. IRROTATIONAL FLOW FIELD SOLUTIONS 


Upstream Flow Fields 



where, 


Di^oo = k + C) = 1 - J 

= (k^ M, J + 2 My*„ Ck 
- 0y±J C^) 


^y±oo = 1 - My., 




( 18 ) 


[ p'*A*a* + p*A'*a* + p*A*a'* ] - f p,A| (uj sin o',.!, + V cos «..[,) + 
PiAi'U( cos (cvch — (3i) + piAj U( cos (tv,. I, — /?,)] 




dW{ 


at 


- + V, 


dpi ) 
at / 


The derivation of the small perturbation forms of the mass, momentum, and energy equations 
is shown in Appendix A. 

The next step involves the derivation of the unsteady control volume form of the 
momentum equation. The equation takes the form: 


F = ^ = // U(,U)dA + I //; u,d (V„l) 

Expanding Equation 19 and assuming small perturbations yields for Region 1: 
p'A| + pA'i — p*A*' — p*'A* = [a'*w* + a*w*'] — 

[Wi (u'l sin «ch + v'l cos tvch) + C,w'i cos («(„ - di)l + 

T T V dp ave I - -Tt 1 I \r dU hvi- 

'-'Bve ’ 1 ' Pave'-'avp 3. ' Pavr’l 


(19) 


at 


at 


at 


(• 20 ) 


The next step requires the derivation of the small perturbation form of the energy equation 
for as inviscid fluid with no external heat addition. The control volume for Region 1 is there- 
fore (Reference 16): 


at 


/// 


ped (Vol) 




(pU • n) eds 


( 21 ) 


where, n = Unit vector normal to the surface and, 


+ 




y(y - 1) 

Substituting the value for e into Equation 21 gives: 

it + 


2 ) ) 

1- 2y (7 - 1) f 


w, 


7 (t ~ 1) 


+ 


V 

2 /- 


(22) 


Expanding Equation 22 by assuming small perturbations and subtracting out the mean flow 
equation produces the small perturbation form of the energy equation, as shown below: 
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, ^ .. [ 2aia'iWi + a?wi ] + [ Wi ( 2D, cos (acn - i9i)) (u'i sin + 

y(y “1/ ^ 

V', cos «eh) + Wi (D, cos («ch “ ^i) )'] “ t 2§*a'*w* + a*^w'* ] 


a^V 


aV', 


7(7 ~ 1 ) L ■ ^ at 

dp' 


+ pa" + 2apV 


1 

9. - 


at 

av\ 


- aa' 1 

IT J‘ 


+ 


Q 2 V, -^ + p D" ^ + 2 Dp V, _ 


( 23 ) 


at 


at 


Before solving Equations 18, 20, and 23, densities are nondimensionalized by p„ pressures by 
PiUi^ velocities by Uire, lengths by semichord b, time by b/UjRE, areas by A*, and volumes by 
A*b. The nondimensionalized form of the equations of motion for Region 1 are as follows: 

Continuity Equation 

[ p'*a* + p*a*A'* + p*a'* ] - [ A, (u'l sin «ch + v'; cos «ch) + 

A] cos ~ 0i) + p'jAj cos ~ i^i)] 

r - av' ap' 1 

= L " at” + ^ I , (2'‘) 

Momentum Equation 

[ p'iA, + p.A'i - p'* - p*A'* ] = a* [ 2p*a'* + p*A'*a* + p'*a* ] - 

cos (ach “ iSi) [ p'iAi cos («ch - iSi) + A'l cos (ach ~ /3i) + 2A[ (u'j sin «ch + 


V', cos ach) ] + D, V. + p, U ^ ^ 


(25) 
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Energy Equation 


7(7 - 1) 


+ ' |_ p'lAi cos («ch - I0i) + A'i cos (a,.h “ j8,) 


cos" («ch - j 8 i) 


A / / ■ I ^ \ t 2A1 COS (ctcti i 

A| (u I sin ffch + V , COS ffch) ^ 7 7 T ' h 


Ai cos" (ffch - /9i) (u'l sin Octx + v', cos a^h) - 

* 2 y(^ [ a" (p'*a* +?*A'*a* + 33*a-) ] 


7(7 - 1 ) 


t[vo* 


3V' - da' 

+ -pa^ — + 2ajv ^ , + 


at + ^ + 20 V 3 


(•26) 


In Equations 24, 25, and 26, all quantities are nondimensionalized. The solution to these 
equations will next be presented. 

After separating the equations into real and imaginary parts, a method of substitution is 
used to solve for the unsteady, complex flow field. All flow parameters within the blade 
channel are assumed to vary harmonically with time, as follows: 

f = f'e‘^' (27) 

where f is any flow parameter within the blade channel. The two-dimensional upstream flow 
field is converted to a one-dimensional flow field utilizing a technique commonly known in 
analyzing the turbulent channel flows (Reference 17): 

f - 4 f dy (28) 

y 0 

The energy equation is utilized to solve for the complex constant (A-^) describing the 
upstream flowfield. The result is as follows: 


A-o„r — EifiA'.R + E,-A'|| + E.hp'r* + Eiap'i* + E.,oA'r* -1- EjiA'i* 4- 
+ E,,5',* + E2,V'„ + E,,V’,r 

A = E-^bA'ir + Ej^A'i, + E,,hp'r* + Eag/"',* + EgoA'R* + E„A',* + 

Eu-ia'R* + Egga'i* + RuV',, -1 - E,,,,V',r 


(29) 


(30) 
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The derivations of Equations 29 and 30 are presented in Appendix B, The E constants in the 
above equations are a function of the steady flow parameter and are presented in detail in 
Appendix E. Calculation of the steady flow parameters appears in Appendix F. Area and 
volume perturbations are a function of the known vibrational mode shapes. The calculation 
procedure appears in Appendix G. The two complex unknowns in Equations 29 and 30, p'* and 
a'*, are obtained through the use of the momentum and continuity equations. 

Using the momentum equation to solve for the complex density perturbation at the 
throat gives: 


= M,3A',.« + M,,A', + + 

M^a'p* + M.,-a'i* + M;,gV'„ + MggV'jR 
p\* = M,oA'i„ + M,A'i, + M,,A'r* + M„A',* + 


(31) 


(32) 


The M constants represent a function of the steady flow parameters. The derivation of 
Equations 31 and 32 appear in Appendix B- The final unknown, a*', is obtained through the 
use of the continuity Equation (24). The result is; 


= C.eA'.„ + C,,A'„ + C„A'h* + C,gA7 + 

CgoV',, + Cg.V'.H (33) 

a'.* = + CggA'n + Cg,A'„* + C,,A',* + 

CseV'i, + Cs,V',R ^34) 

The C constants also represent functions of the steady flow parameters and are presented in 
Appendix E. The derivations of Equations 33 and 34 also appear in Appendix B. This 
completes the analysis for Region 1. 

Perturbation Equations for Region 2 

Region 2 in Figure 6 represents the supersonic region from the,..biade throat (M=l) to the 
steady-state shock position. Since all the inlet flow parameters are known, only two flow 
parameters need to be found: (1) perturbation velocity (Uus) and (2) density (p'us) on the 
upstream side of the shock. Thus, only the continuity and momentum equations are needed to 
solve for the density and velocity perturbations. Dealing first with the continuity equation, 
recall that: 

^ - 0 = // pUdA -h ^ /// pd (Vol) (16) 

which becomes for Region 2: 

PubU^bA, - p*A*a* = — (35) 
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figure 6. 



FD 176253 


Region 2 from Channel Throat (M = li ,t. o 

Location ^ Steady-State Shock 



Assuming small perturbations produces: 


(p'u.Uu«A« + p^U'^A'. + PubUubA',) - (p'*A*a* + p*A*a'* 4- 

p*A'*a*) = ~ f ^2 ^ P ^ } 

^ ' \2^ ^at'2 


( 36 ) 


Following similar lines to the derivation of the momentum equation in Region 1, the 
resultant equation becomes: 

(-P'ubAb - PubA's + p'*A* + p*A'*) 

= + U^w'^) - (a'*w* + a*w'*) + 

dp' 2 


U, V, 


St 


j- - n + - V ' 

+ P 2^2 + P 2 ^2 


(37) 


St 


These equations are nondimensionalized in the same manner as in Region 1 to yield the 
following equations for continuity and momentum: 


Continuity Equation 


(p'ubUuA + PusU'uA + PubUusA's) - (p'*a* + p*a'* + p*A'*a*) 


Momentum Equation 


(-p'usA« - PusA's + P'* + P*A'*) 

= (U'ugWus + UubW'ub) - [p*a'*a* + a* (p'*a* + ~p*k'*a* + p*a'*)] + 


iix. 


dp, 

St 


hi): 


St St 


(39) 


The momentum equation is used to obtain the expression for the density perturbation 
upstream of the shock to yield: 


P USI “ 

M,2 

A SR 

4- 

Als:.A SI 

4- 

M, 

P'^ + 

Mg, 

P't + 

M,g At + 

M,7 

Al 

4- 

M.h 

u USR 

+ 

M., 

C usi 4" 

Mg„ 

a'=^ 

+ Mg, a'^ 4- 

M,, 

p'1 

+ 

M,, 

pS + 


V' 2 . 

+ Mgs 

V'2R 




P usR ~ ^6 sA SR + M(j 7 A R] + p R + p * + MjoA R + 
^7jA'* 4“ M72U\ihr 4-M7nU\ii,i 4-M7,a * 4" M7,.;a’R 4- 
M 76 P * ^77/0 R 4- MjgV j 4- M 79 V R 
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The derivation of Equations 40 and 41 appears in Appendix C. The expressions for the density 
perturbations contain one unknown: the complex velocity perturbation upstream of the shock 
(U'us)- The continuity equation (37) gives this relationship: 


O'usR = C„A'sh + C,,A'si + C,,p*R + + C„at + 

CgoP'* + CaiA'p + C82A'* + + Cg 4 VR 

U USI ~ ^S5 A yR + CggAyl +C3yjOR + Cgg P * + Cgg 3 R 

Cgoa'1 + Cg,pt + Cg,P'^ + C„A'^ + Cg,A'1 + CgsV'R + CgeV', 


R 


+ 


(42) 


(43) 


The derivation of Equations 42 and 43 is presented in Appendix C. The M and C coefficients 
are found in Appendix E. 

This completes the analysis for Region 2. The unsteady shock wave movements are next 
defined along with equations describing flow discontinuities across the shock. 

Unsteady Shock Movement 


For a normal shock wave moving at a velocity, Us with respect to the channel, the pres- 
sures on the two sides of the wave relate in the following manner (Reference 18): 


Pda 


Pub 


27 


( - (t - 1) 


y + 1 

Assuming small perturbations and nondimensionalizing Equation 44 yields: 


2y 


7 + 1 


PuaU'a 

27 

7 + 1 

27 

y I 


^ Pue^ua Pda ( .y ^ ^ ® ^ 

- ( TTY ) ] p-„, H 

fluaP da, j 


+ 


fluaD^ua U. 


®uaPuaM i; 


(44) 


(45) 


Again, all flow parameters are assumed to vary harmonically with time. The change in 
shock position can be related to the shock velocity perturbation by; 


U'b = U'g exp ikt = 


at 


(46) 


Integrating Equation 46 gives: 


X' 


SR 



x' 


SI 



(47) 
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Substituting Equation 46 into Equation 45, dividing by and solving for U's produces: 

U uaR 


SR S t 

= §: [ 


usR "i” S 3 P ugp "t" S 4 


flusP. 


^ 2 ® UBi "i" S3P UBi S4 


■- 1 

> dsR J 

-.6-1 

“UbP dBl I 


( 48 ) 


where the S coefficients are presented in Appendix E. 

The pressure perturbation upstream of the shock can now be related to the density 
perturbation in the following manner: 


p'us = ®^UsP US 

and to the speed of sound perturbation as 

(^) (Sr) 

Thus, there exists only one unknown in Equation 48: p'ds. The downstream pressure perturba- 
tion is found by expanding the following equation in small perturbation form. The density 
discontinuity across the shock is 


Pd. [(t ~ 1) Mus“ + 2] — Pus [(7 + 1) ] 


(49) 


This equation in small perturbation form can be expressed as 
P dsH ~ Sg U ug(i Sg P 

P ds[ ^8 ^ usl ^9 P usi (50) 

Substituting the relationships of Equation 50 into Equation 48 produces the shock per- 
turbation velocity. 

The velocity perturbation downstream of the shock is found by satisfying the continuity 
across the shock, as noted in the following equation: 


PusUuB'^s PdsUdsAj 


(51) 


Expanding Equation 51 in small perturbation form and solving for TJ'g^ gives 
1 


U dsK 
U dal ~ 


Pds 

1 

Pds 


[p usH Uus + Pus U usR p risR Ufifi] 

\-P usl Ous + Pus U usl p risi Uygl 


(52) 

(53) 


This completes the relationships describing the flow perturbations across the normal 
shock. 
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Perturbation Equations for Region 3 



Figure 7. Region 3 from the Steady-State Shock Location to the Cascade 
Trailing Edge 


Region 8 is the subsonic intrablade region from the shock location to the cascade trailing 
edge, as shown in Figure 7. The unsteady flow field is derived using the perturbation 
relationships for the flow entering the region across the normal shock and exiting the cascade 
into the downstream flow field. The unsteady flow field exiting Region 3 is represented as the 
sum of two flow fields: (1) the irrotational part derived previously in the section on upstream 
and downstream irrotational flow, and (2) a rotational part related to the vorticities being shed 
off the trailing edge of the blades due to the unsteady vibratory motion. 
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Rotational Downstream Flowlleld 

Lacking viscosity, the equation of motion in vorticity form for two-dimensional flow is 
(Reference 19): 


P 


Dt 


^ Dt 


(54) 


In small perturbation form this equation becomes 

i = 0 (55) 

Dt p Dt 

where, D/Dt represents the substantial derivative. 

The vorticity of a nonvicous field remains zero, if at the beginning the vorticity was 
equal to zero and the fluid is only subjected to the forces which have a potential associated 
with them. A shock wave does not fit into this category. However, according to Crocco’s 
Theorem (Reference 20), if the fluid passes through a stationary shock wave, the flow can 
conserve its irrotational character only if the entropy rise is uniform across the shock. This is 
the case for the normal shock in a one-dimensional channel flow. Thus, the mean flow vorti- 
city is zero. Using this fact in Equation 55 produces 



A solution to Equation 56 is assumed. 


(56) 


^ (x,y,t) = exp i (Rx -I- Cy -f kt) 


(57) 


where C is defined in Equation 9 and k is the reduced frequency. Substituting Equation 57 
into Equation 56 and solving for R results in 


^ - (k + Ve C) 

Ue 

The vorticity can be related to the stream function as follows (Reference 21); 


(58) 


-f' 


where, 


ay 


9x 
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A solution for the stream function yp exists in the following form: 




Z^OO 

R2 + C‘^ 


exp i (Rx + Cy + kt) 


( 59 ) 


which will give the rotational velocity perturbation at the exit. 

Continuity and Momentum Equations for Region 3 

Because there are only two unknowns in the downstream flow field, the complex 
irrotational and rotational constants, the momentum and continuity equations are all that are 
required. The nondimensionalized small perturbation forms of these equations are 

Continuity 


[(P E Ak Uk 

; + Pe 

A'. Uk 

+ Pe Ah 

= U'k) 

~ (pils AjU'ds ■*"Pds As Uds 



r 

av- 


dp' 1 

p ds Aa 

Oda)] 

- 

9t 

+ V ■ 

at -In 


Momentum 

(P d8 Ag “t Pda A a 


P',, Ak - Pk A',;) = {U',.; We + 0,.; W'g) ~ 


(U', 


Wa. + Uh 


+ Ua 




dt 


U. 


a v:, 
at 


( 60 ) 


. dU, (61) 

The momentum equation is used to solve for the complex constant A+„ to produce 


A 

— Z ^ cr. Mg2 

+ Z+ocI 

Ms, + RC Ms, 

+ IC Mas 

(62) 

A+ 

~ Z_^3CH ^86 

+ z,. 

I Ms 7 + RC Mss 

+ IC Mas 

(63) 


The M constants, along with RC and 1C, appear in Appendix E. 


The continuity equation is used to solve for the complex constant describing the 
rotational downstream flow field resulting in 


Z + cc-u 

= RC C„2 

+ IC C„s 

+ C,, 

(64) 


= RC C,.s 

+ IC c„s 

4- C,,7 

(65) 


where the C constants are found in Appendix E. 


Equations 64 and 65 can then be substituted into Equations 62 and 63 to solve for A+^ 
giving a complete description of the flow field in Region 3. The derivation of Equations 62 
through 65 is presented in Appendix D. 

Thus, with the solution of the flow field in Region 3, a complete description of the 
cascade flow field is obtained. A compilation of the computer code for the semiactuator disk 
model is presented in Appendix J. 
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RESULTS 


The semi-actuator disk theory was evaluated in two ways. The first method consisted of 
a comparison with test data presented by Tanida and Saito (Reference 22) for an isolated air- 
foil oscillating in choked flow in a wind tunnel. The second method involved a flutter analy- 
sis of the F100(3) 6th stage of the high-pressure compressor of the F100(3) turbofan engine, 
which encountered choke flutter while operating at off-design conditions in a core engine (no 
low rotor) at the Arnold Engineering Development Center (AEDC). 

Wind Tunnel Test Data 

Tanida and Saito oscillated an airfoil in a wind tunnel at constant amplitude for various 
combinations of inlet Mach number, back pressure, reduced frequency twist axis location, and 
tunnel wall separation, and recorded both steady and unsteady aerodynamic characteristics. 
Because reflections from the tunnel walls create a special case in a cascade in which adjacent 
blades are exactly out of phase, the experimental test conditions were simulated with an 
interblade phase angle of 180 deg. After calculating unsteady pressures through the blade 
channel, the unsteady lift and momentum coefficients were calculated in the manner presented 
in Appendix I. 

General agreement was achieved for the imaginary moment due to pitch for back- 
pressure ratios less than 0.7, as shown in Figure 8. At higher back-pressure ratios, flow is not 
fully transonic during the full cycle of operation; i.e., a weak shock appears and disappears 
on the airfoil surface. A basic assumption of the analytical model stipulates that flow is fully 
transonic, and a strong normal shock exists in the blade passage throughout the oscillatory 
cycle. Because this was not the case at high back-pressure ratios, good correlation was not 
anticipated. 


Flutter Analysis 


Computational Method 

Investigations also involved an assessment of the semi-actuator disk unsteady aerody- 
namics by combining the model with existing P&WA cyclic work and aerodynamic damping 
calculations, and then performing a flutter analysis for the F100(3) sixth compressor stage, 
which experienced choke flutter at off-design conditions. The P&WA approach to flutter pre- 
diction stems from a cyclic energy method in which total system damping is calculated. The 
system becomes unstable when total damping, which is comprised of aerodynamic and 
mechanical damping components, is less than zero; i.e.. 


5tOT = (Kero + 5„ech) < 0 fluttei 
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Imaginary Moment Due to Twist 
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Figure 8. Comparison Between Wind Tunnel Data for Isolated Airfoil and 
Semi-Actuator Disk Analysis 



No method currently exists to determine mechanical damping. Thus, stability predictions 
are based on correlations of aerodynamic damping for an assumed level of mechanical damp- 
ing. To calculate 6aero, a quasi-three-dimensional analysis is used in which two-dimensional 
unsteady aerodynamic work (W) is calculated for strips along the airfoil span. As shown by 
Carta (Reference 23), the two-dimensional work can be expressed as 

W = pTrbW^ + ah [(L„« -Mhr) sin 6 + 

(L„, + Mh,) cos 0] + M„, a^ } 


where, 

L 

M 

(Y 

h 

0 


= unsteady lift coefficient 
= unsteady moment coefficient 

= normalized mode shape deflection of maximum twist 
= normalized mode shape deflection of maximum bending 
= phase relationship between or and h. 


Numerically integrating the two-dimensional work along the span produces total unsteady 
cyclic work for one blade (W-tot)- The logarithmic decrement, or aerodynamic damping, is then 
calculated as 

c _ nWxoT 

4KE 

where, 

n = number of blades in the system 

KE = normalized average kinetic energy of the system vibrating in the 
normalized mode. 


Flutter Prediction Results 

A flutter analysis of the FlOO sixth stage compressor operating at sea level conditions was 
performed, and a summary of the data points, operating conditions and predicted damping 
values is presented in Table 2. The model predicted the first bending mode to be least stable, 
which is consistent with the results observed by Lubomski (Ref. 24). However, test data 
showed Rotor 6 encountered negative incidence flutter in the second coupled mode, with some 
secondary first-mode response. 

For both the first bending and second coupled modes, the model shows a distinct differ- 
ence in damping level between flutter and non-flutter points, with all of the flutter points ana- 
lyzed having a negative damping value, indicating an unstable condition as seen in Figure 9 
and 10. In general, the model predicts the correct trend with increasing speed, i.e., a decrease 
in stability with increasing speed. 
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TABLE 2. SUMMARY OF LEAST-STABLE NODAL DIAMETERS 
AND DAMPING VALUES FOR SEA LEVEL CONDI- 
TIONS 



Test Data 



Stability Calculations 




Rear 






Compressor 

Variable 


Aerodynamic Damping 


Test 


Vane, 

Least Stable 

Semi- Actuator 

Data Point 

Stability 

% Ncor 

RCVV 

Nodal-Dia. Smith 

Disk Theory 

F100(3) Rotor 6 1st Bending Mode 





AA02PT3 

NF 

80.0 

-30.0 

2 

0.0164 

0.0102 

AC06PT8 

NF 

88.7 

-30.0 

2 

0.02978 

-0.00104 

AC06PT9 

FB 

89.75 

-33.0 

4 

0.0558 

-0.01394 

AC06PT10 

F 

91.4 

-37.2 

3 

0.04605 

-0.0110 

AC06PT11 

FB 

90.21 

-29.2 

3 

0.05793 

-0.01313 

AC06PT12 

F 

92.4 

-29.0 

3 

0.05516 

-0.0106 

AC05PT29 

NF 

84.76 

-20.0 

2 

0.03718 

0.03718 

AC05PT30 

NB 

99.68 

-20.8 

4 

0.0795 

-0.0356 

AC05PT31 

F 

102.00 

-21.0 

4 

0.06492 

-0.03990 

FI 00(3) Rotor 6 2nd Coupled Mode 




AA02PT3 

NF 

80.0 

-30.0 

3 

0.000125 

0.000101 

AC06PT8 

NF 

88.7 

-30.0 

3 

0.000275 

0.000097 

AC06PT9 

FB 

89.75 

-33.0 

6 

0.01894 

-0.00101 

AC06PT10 

F 

91.4 

-37.2 

6 

0.01334 

-0.00063 

AC06PT11 

FB 

90.21 

-29.2 

6 

0.0182 

-0.00097 

AC06PT12 

F 

92.4 

-29.0 

4 

0.00170 

-0.00077 

AC05PT29 

NF 

84.76 

-20.0 

2 

0.000354 

0.000354 

AC05PT30 

FB 

99.68 

-20.8 

6 

0.0299 

-0.00130 

AC05PT31 

F 

102.0 

-21.0 

6 

0.0243 

-0.00166 

where, 

NF 

FB 

= No Flutter 
= Flutter Boundary 





F 

= Flutter 







Calculated Aerodynamic Damping - S^ero Calculated Aerodynamic Damping - 


0.04 


^ 0.03 
0.02 
0.01 
0 

- 0.01 
- 0.02 

-0.03 
-0.04 
-0.05 

70 75 80 85 90 95 100 105 110 

% Corrected Speed 

FD 201839 

Figure 9. Comparison of Calculated Aerodynamic Damping and Observed 
Stability for the First Vibratory Mode of the FlOO Gth-Stage 
Compressor 
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Figure 10. Comparison of Calculated Aerodynamic Damping and Observed 
Stability for the Second Vibratory Mode of the FlOO Gth-Stage 
Compressor 






1 1 

Symbol Data Run 

Q AA02 



SilB 

} 8 

A AC06 

(2h AC05 

Roliri RvmholR 





jW 

resent Te 

st Flutter 





0 


, 30 

.31 














■ 




c 

b29 

' I 

Syml 

G 

1 

Dol Data 
AA( 
AC 
AC( 
Symbol 
esent Te 

Assi 

Run 

32 





\ 

A 

06 



Poin 


\ 

LJ 

SoUc 

Jo 

s 






\ I 

• 

jmed Magnitude 

— 

— 

— 


a 

of 

Da 

“ — 

\ 

MecnanK 

mping 

)ai 






\ 








30^ 









" 31 



26 



The slight discrepancy in this trend exhibited by the calculated damping values for flut- 
ter data points AC06-10 and -12 may be attributed to inaccuracies in the steady streamline 
aerodynamic input. The inaccuracies arise due to the difficulty in predicting the steady aero- 
dynamic environment while the compressor is operating well off the design condition in flut- 
ter. The model is very sensitive to inlet air angle, relative inlet and exit Mach numbers, and 
static pressure ratio across the stage. The inlet Mach number and air angle are used to check 
for choked flow in the blade passage, and the static pressure ratio is used to locate the 
steady-state shock location. For data points AC06-9 and -11, the static pressure ratio across 
the stage was matched within 2 percent, while for AC06-10, the error was as high as 15 per- 
cent. This magnitude of discrepancy in matching the stage static pressure ratio could lead to 
inaccuracies in locating the steady-state normal shock. In the analysis, the chordwise location 
of the shock greatly affects the magnitude and sign of the unsteady aerodynamic coefficients, 
thus greatly affecting the damping calculation. It was noted that data points AC06-9 and -11 
were calculated to be choked along the entire span, while AC06-10 and -12, operating deeper 
into the flutter boundary, were not. This has a large effect on the stability calculation because 
if the flow is determined to be unchoked, the unsteady, zero-incidence Smith coefficients (Ref- 
erence 2) are used in place of the semi-actuator disk coefficients. The Smith coefficients 
always predicted the rotor to be stable. 

The magnitude of the inlet and exit Mach numbers proved to be important parameters 
in describing the upstream and downstream flow fields. With increasing inlet Mach number, 
the unsteady lift due to flap increased in a destabilizing manner and with increasing exit 
Mach number. The unsteady moment due to twist showed a similar trend. Data points 
AC05-30 and -31 are approximately double the value of the negative damping of the other 
flutter points. This is due in part to the greater inlet and exit Mach numbers. The magnitude 
of the inlet air angles are related to the magnitude of the inlet Mach number through the 
continuity equation in the steady streamline analysis. It is noted that the streamline analysis 
indicated data point AC06-9 was operating above at the tip. The air angle is related to 
the flow area; therefore, to satisfy continuity the inlet Mach number must decrease at 
this station. This is particularly significant because the maximum unsteady work occurs 
at the tip. A similar trend was noted at other sections. AC05-30 had similar trends, but 
not as severe, giving a more accurate inlet Mach number. It is speculated that a more 
accurate representation of AC06-9 would give a larger inlet Mach number and increase 
the damping in a negative sense, bringing the flutter points closer to the same damping 
level. 


By plotting the aerodynamic damping versus corrected speed, as in Figures 9 and 10, or 
versus variable inlet guide vane setting, as in Figure 11, a predicted flutter boundary can be 
obtained by assuming a value for mechanical damping. As shown in Figure 12, the results of 
the flutter analysis prove to be conservative, particularly at higher corrected speeds. This 
conservatism is believed to be due to the inlet Mach number and air angle discrepancy 
discussed above resulting in two negative damping levels. A summary of the least stable nodal 
diameters and damping values is presented in Table 2 for the 1st bending and 2nd coupled 
modes of vibration. All the predicted least stable nodal diameters are relatively small because 
the model encountered numerical difficulties at large interblade phase angles as shown in 
Figure 13. 

The General Electric annular cascade data (Reference 25), which was originally to 
be analyzed, had to be abandoned because the published data gave an inadequate des- 
cription of the steady flow field. No exit data were published and attempts to calculate 
aerodynamic damping using exit conditions based on PWA 2-dimensional cascade test 
data produced no meaningful results. 
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Figure 11. 


Calculated Aerodynamic Damping Versus Variable Vane Angle 
With 1st Mode of Vibration, Backward Traveling Wave 
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Figure 12. Comparison of Predicted and Experimental Flutter Boundaries 
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Figure 13. Effect of Nodal Diameter and Interblade Phase Angle on Aerody- 
namic Damping 


Summary of Results 

The following is a summarization of the results of the flutter prediction study. 

1. The model showed a distinct difference in damping level between flutter 
and non-flutter points indicating the importance of the unsteady shock in 
the blade passage. 

2. The model shows the correct trend with increasing corrected engine speed 
and vane angle; i.e., with increasing choked conditions, the model predicts 
the aerodynamic damping to become less stable. 

3. The model was very sensitive to the steady aerodynamic input. In order to 
perform an accurate flutter analysis, an accurate steady aerodynamic de- 
scription of the flow field must be obtained. 

4. The model was conservative in predicting the flutter boundary at high 
corrected engine speeds. 

5. Due to limitations on interblade phase angle inherent in semiactuator disk 
theory, the model is limited to interblade phase angles of ±90 deg. 



Conclusions 


Based on the results of the F100(3) 6th-stage compressor flutter analysis, it is concluded 
that the model is useful as a conservative choke flutter design system. The model is sensitive 
to the steady-state aerod 3 mamic input, particularly inlet and exit relative Mach number, inlet 
air angle, and static pressure ratio across the stage. In order to perform an accurate flutter 
analysis, an accurate description of the steady flowfield must be obtained. 
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APPENDIX A 


DERIVATION OF THE SMALL PERTURBATION FORM 
OF THE EQUATIONS OF MOTION IN REGION 1 


CONTINUITY EQUATION 

The continuity equation for Region 1 takes the form 


w 


inlet 


a(p,v.) 

at 


(Al) 


Mean Flow 

Assuming small perturbations about the mean flow gives the following expressions for the flow 
rates, neglecting higher order terms. 

Wjnlet ~ WinJet W inlet (pi Pi) (A| A|) (Uiniet ”1" U ) 

= PiAiOi + p'lAiUi + piA'iUi + piAiU'i 


Let U'i be the perturbation velocity aligned with chord line. Then 
U'i = u'i sin + v'i cos o^i, 

The inlet velocity is U[re cos ~ The inlet flowrate is then defined as 
Wi„i„ = Wi„|., + w'i„i,^ = AAiUi cos («,h - ^i) + 

^jA, (v'l cos cv^h + u'i sin o^h) P|Ui cos (oeh ~ i^i) A'; + 
p'iAiUi cos («,h ~ /^i) 

The flowrate at the throat is represented by 

w* = w* + w'* = p*A*a* + p'*A*a* + /o*A'*a* + p*A*a'* 

Next, expand the term 


9(piVi) ^ 9Vi , y 9pi 

at at * at 


By assuming small perturbations, the following relationships emerge: 



9<pV) 

at 


= Pi 


at 


+ V, 


dfh 

at 


(A2) 

(A3) 


(A4) 
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The small perturbation form of the continuity equation for Region 1 is then: 


{p'*\*a* + p*A'*a* + p*A*a'*] — [piA, (u'j sin + v'j cos + 

P;A'iUi cos — fid + /o'jAiUi cos (or,h — fid] 

= ^ + v 

I, ' ■ at ' at / 

Unsteady Control Volume Form of Momentum Equation 

The next step involves the derivation of the unsteady control volume form of the 
equation. The equation has the form 


with 

= P(A| — p*A* = (Pi + p;)(A| + AO - (p* + p'*)(A* + A'*) 


Neglecting higher order terms and subtracting out the mean flow forces gives 

Lf = (plAi + p.AO - (P*A'* +P*'A*) 

Now to evaluate the first part of Equation A6, 

U (pU ■ dA) 
which is essentially 

a*w* - U| (cos («ch - /?0) W| 

In terms of small perturbations, this expands to 

(a*w* + a'*w* + a*w'*) - (U^w, cos - fid + U',Wi + 

U| cos (och - fid wO 

Subtracting out the mean flow quantities gives 

(a'*w* + a*w'*) - (u'l sin + v', cos Ocu) w, + Oj cos (oh, - fid w[) 


To evaluate the second term of Equation A6 
^ /// Vpd (Vol) = ^ („,U,V,) 
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UiV. 


9pt 

dt 


+ piU] 


at 


+ PiV, 


au, 

at 


(A5) 


momentum 

(A6) 


(A7) 


(A8) 



Working with the first term and neglecting higher order terms produces 


U.V. 


dPi 

dt 


= (U,v, + U',V , + U,V',) 


at at 


= u,v, 


9p'i 

at 


Similarly, for the second and third terms 


,U. 

av, 

- PiU, 

dV\ 

at 


at 

,V. 

aUi 

at 

= PiV, 

au' 

at 


(A9) 


Combining Equations A7, A8, and A9 gives the small perturbation form of the momentum 
equation, as shown in Equation AlO. 


p'A, + pA', — p*A'* — p'*A* = [a'*w* + a*w'*] — 
[w, (u', sin + v'l cos + U,w', cos («ch “ l^\)] 


U Y 


- n av', 


+ P.U 


at 


-I- 5 V 

^ ' at 


Small Perturbation Form of Energy Equation 


(AlO) 


The nejjt step requires the derivation of the small perturbation form of the energy equation for 
an inviscid fluid with no external heat addition. The control volume form for Region 1 is 
therefore 


at 



ped (Vol) = - 


IJjK'J 


n) eds 


(All) 


where, 

n = unit vector normal to surface 

a" JLJL 

® 7(7 - 1) 2 

Substituting this relationship into Equation All produces 



( 


a^ 

7(7 — 1) 


+ 



= - // (pU • n) ( ^ 


ds 
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which becomes 



Now% in order to expand by assuming small perturbations. 
Term 1 (neglecting higher order terms) 

_ 1 y + 2 j- ^ 2a*a'*w* + a*^w'* ] 

27(7 - 1) 

Term 2 (neglecting higher order terms) 


(Wi + w'l) 


a\ + 2aia; 1 


+ [( Ui cos (o'ch-/3i))^ + 2U| cos («ch - /3,) 


L 7 ( 7 - 1 ) 2 

(u'l sin tich + v'l cos och) ] ] 

[ a^W| + 2aia;wj + afw; ] + [ w, (Uj cos (acn - /3i) + 

20i cos («ch - /3i) (u'l sin ach + v'l cos o-ch) Wj + w[ ( Ui cos (cYrM - /3,))^ 


Term 3 



2 dt ^ 


Term 3a 


1 


7(7 - 1) L 
1 


,0 _ 

a(p',V,a,") a(p,V',a,^) 23(a',a,/OiVi) 

at at at . 


7(7 - 1) L 


V.a^ 


dV\ 


aT "5T at 


» i?ll 

' at J 


(A12) 


(A13) 


(A14) 


(A15) 
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Term 3b 


2 dt 


1_ 

2 



dp' 

dt 


+ pU" 


3V', 

at 


+ 2UpV, 



(A16) 


Combining Equations A13 through A16 and subtracting out the mean flow equation yields the 
small perturbation form of the energy equation: 


[2aja'iW| + ajV'j] + [w, (2Uj cos (a^h ^i)) “ch + 


t(t “ 1) 


v'i cos aj + W; (Jj; cos («.H - ^.))' ] - [2a*a'*w* + a*V*] 


7(7 




dp __2 9V'i , da' ”1 

at ^ 9t dt J , 


+ 


U’V. + ?U“ ^ + 2UpV, If 


(A17) 


In order to nondimensionalize E^ations A14, Al^ and A17, densities will be non- 
dimensionalized by Pin,,i, pressure by pjUA velocities by Uire, lengths by semichord, time by 
b/U„ areas by A*, and volumes by A*b. Starting with the continuity equation: 


1- ' Pi ' 

) A*( 

' A* 
, A* 

) 0 , 

^ a* 

uT 

) + Pi 

(^)a* 

' Pi 

( — ) 
' A*' 


' Pi 

A* ( 

A*' 

A*> 

) C, 1 

f a'*] 

^ wj 

']- 1 

p. (^) 

Pi 

A-( A 

''A* 

■) 0, ( . 

v'l \ 

cos ach j + 


pi 

A* ( 

it) c. 

(*r)- 



cos ^Otch 

/?l) + 


Pi 

A*( 

' 

V A* ^ 

«n) 

COS (cVch 

- w] 

- (*.( 

Pave 1 

Pi ^ 


i* b 

u.) 

b / 

b,av', 

A*bUiat 

A*b9. 

A*b 

. 0, 

b.apV \ 

UAbpi ' 
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Dividing through by piA*0, gives 


[p'*a* + p*A'*a* + p*a'*] — [A; (u'l sin + v j cos a^h) + 
Aj cos (cv,h ~ )3i) + p'iAi cos (a,h ~ /^i)] 


== — 5 -I- Y ^ 

L ^ 9 t ’ at 


n, 


Consider next the momentum equation (Equation AlO). The result is, after dividing by 

(p'iAi + PiA'i - p'* ~ p*A'*) 

= [a'*p*a* + a* (p*a'* + p*A'*a* + p'*a*)] - 
[ (u'i sin ach + v'l cos «ch) A, cos («ch ~ ^i) + 
cos (ach - /?i) (p'lAi cos («ch - /3i) + A; cos (och ~ + 

+ 


Ai (u'i sin + v'i cos a,J)] + ^ UV, ^ ^ 

- (A f ), 


Proceeding next to the energy equation (Equation A17): 

piA*U^ 

[ 2 A 1 cos (ach - /?i) a, a', + (p;A, cos (a^h - /5i) + 

A; cos (ach - Pi) + A, (u[ sin Och + v[ cos ach)) af ] + 

piA*Ui 

— - [ 2 A 1 cos^ (ach - Pi) (u; sin ach + vj cos ach) + 

cos^ (ach - Pi) (plA, cos (ach - Pi) + Aj cos (ach - Pi) + 

A, (u; sin ach + v,' cos ach)) ] ~ PiA*U? [ 2a*="a'*p* + 

27(7 - 1) 


+ p*A'*a* + p*a'*) ] 

L dt 


7(7“!) 


— dSi' 

+ pa" + 2paV, — + 


at 


p,A=^U? r ^ - dp dV\ 9Ul 

L ^ + pW ^ + 2UpV, — J ^ 
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(A18) 

i Ui" Ai* 


(A19) 


J 



Dividing the above equation through by and rearranging the terms yields 




af cos^^ (ofch - /?i) 

7(7 - 1) 2 


■J [ p'iA| cos (ttch - /Si) + A', cos («ch “ /Si) + 

^ , 1 , 2 A 1 cos (ach - 0 i) a,a'i 

Ai (u'l sin Qfch + V I cosach) J S 


7(7 - 1) 

Ai cos^ («ch - Pi) (u'l sin ffch + V', cos «ch) ~ 

7 [ a*" {p'*a* +p*A'*a* + 3p*a'*) ] 

27(7 - D 


+ 


7(7 ~ 1 ) 


[v.r f 


9V' 

+ pa^ 0 ^ • ' + 2apV 


--\7 

at X 


r__ 


i [V.U’ % + 


- - au' 1 


+ 2UV^ - 3 ^ 


The nondimensional equations of motion are as follows 
Continuity 

[p'*a* + p*A'*a* + p*a'*] — [A, (u'; sin a,h + v'; cos a,h) + 
A'i cos («rt — di) + p'A cos (rt,h “ /S,)] 


“ “ L “ 3 T + J 


Monient u m 

[p'A + P,A', - P'* - P*A'*] = 
cos — di) [p'.A, cos ((v,|, 

v', cos + U,Vi 


= a*[2p*a'* + p*A’*a* + p'*a*] - 
— /j,) + A', cos («,h “ Pi) + 2A, (u', sin 


+ P.U, 


3V'. 

3t 


+ pAi 


9U', 

at 


(A20) 


(A18) 


(A19) 
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Energy 


^ 

“ 7(7 - 1) 


+ 


cos* («ch — /3i) 




Ai cos (ach ~ 0 \) + A', cos (ach ~ 0 :) + 


2A1 cos («ci. - 0 i) a,a'i 

Ai (u'l sin «ch + v'l cos ach) J + _ 1) 


A, cos* (ach - /81) (u'l sin ach + v', cos ach) “ 

a*" (P’^a* +p*A'*a* + 3p*a'*) ] 

27(7 — 1) 


7(7 “ 

+[». 


' - , dp 

V a — 
1. dt 


..a + 2apV, 


at at 


+ 




at 


at 


(A20) 


The small perturbation forms of the equations of motion for Region 2 and 3 are derived 
in a similar manner. 
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APPENDIX B 

SOLUTIONS TO THE EQUATIONS OF MOTION FOR REGION 1 


The nondimensionalized linear equations of motion for Region 1 are represented by 
Equations 24, 25, and 26, and are solved to obtain the three unknowns: A_„ p*', and a*'. 
Starting with the inlet flow parameters 



d<P' 

dy* 


The expression for 4> is given in Equation 11. The inlet velocity perturbations become 


V j = 


i B, A_ 
b U, 

i C A., 
b U, 


exp i(B,x + Cy + kt) 


exp i(B,x + Cy + kt) 


(nondimensional) 


(nondimensional) 


(Bl) 


(B2) 


The inlet pressure perturbation can be obtained from Bernoulli’s relationship in the 
following manner: 

9Pi - r , - 9u'i , — 9v'i 1 

= “Pi I 5-^ + U: ^ + Vi !- 1 


at 


“V* 

1 


at 

2 


at 

3 


/ ap', - -p, It + ^ 


(B3) 


Substituting for u';, and v\, and integrating produces 

p'i = — i [A_3^ exp i(B,x + Cy + kt)] [k + U|B, + VjC] (B4) 

where all quantities are nondimensional. The inlet density perturbation can be related to the 
inlet pressure for isentropic flow 


ap i = -2 p i 

a 

Substituting Equation B4 into Equation B5 gives 

p'i = — r 6^P *(B,x + Cy + kt)] [k + UjB, + VjC] 

The speed of sound perturbation at the inlet is related to pj by 



(B5) 


(B6) 


(B7) 
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Substituting Equation B4 into Equation B7 gives 


_ i(7 ~ 1) 

2a, 


exp i(B,x + Cy + kt)] [k + UjB-, + v-,C] 


The inlet flow parameters represented by a two-dimensional flow field which is converted 
to a one-dimensional flow field by a technique commonly used in turbulent channel flows. 
Here the relationship holds. 


f'(x) = ~ J f(x, y) dy 


(B8) 


Yi 0 


where f is any flow parameter. Starting with the velocities 
u'(x, y) = i B|A.^ exp i(B,x + Cy + kt) 

u'(x) = T- J' i B,A.<,o exp i(B,x + Cy + kt) dy 




u'(x = 0) = 




Cy. 


(B9) 


The following steps are used to evaluate the y component of the velocity: 
v'(x, y) = i CA_oo exp i(B,x + Cy + kt) 

\^(x = 0) = -r f i CA_„ exp i(BiX + Cy + kt) dy 

\T 


= 


y. ‘'o 
A_ e'-* 


(BIO) 


Returning to the inlet pressure expression noted in Equation B4, the following results: 
(k + u.B, + V|C] 


Pi = - 


Cyi 


[A_„ e-^ (e’"^' - D] 


(Bll) 


Returning to the inlet density expression, the following results: 


P i = 


(k + UjBi + VjC) 

CyiSi^ 


[A_ e‘“ (e 




D] 


Finally, the speed of sound expression becomes 

a', = - ( ) ( ^ ) 


(B12) 


(B13) 
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r 


The next step assumes that all flow parameters within the blade channel are harmonic- 
ally varying with time. As such, the following equations apply: 

p'* = p'* exp ikt 

p'* = p'* exp ikt 

a'* = a'* exp ikt 

A'* = A'* exp ikt (B14) 

V' = V' exp ikt 

In addition to these expressions, the time rate of change of density, velocity, and speed 
of sound are also needed. Starting with the velocity at the inlet from Equation B9, the 
sequence progresses as follows: 


R A 

Q-. = eikt (eiCy, -1) 


0 u'| 


dv\ 

at 


Cyi 

ikB,A. 


Cyi 

A_„ eikt (e>Cyi-l) 


eikt (eiCy, — 1) 


ikA. 


Vi 


eikt (eiCy, -1) 


The time rate of change of density at the inlet equals 

[A_.. eikt (eiCy, -1)] 


dp'i _ “ik (k + u,B| + v-C) 
~dT ~ 


Cy,a? 


and al the throat 
dp' 


at 


^ ikp'* exp ikt 


The time rate of change of the speed of sound at the inlet equals 

-ik ( -) ( "^ 7 ) + ViC] 


at 

and at the throat 
3a' 


at 


= ika'* exp ikt 


(B9) 

(B14) 

(BIO) 

(B15) 

(B16) 

(B17) 

(B18) 

(B19) 
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Working first with the energy equation, let 
E =1 _L cos^ (etch - 0^) 

L y{y-l) + 2 


I = cos (ttch - /?i) 

„ _ a*^ (t^-t+2) 

Inserting Equations B9 through B19 into Equation 26 and dividing through by e'*** produces 
the following expression: 


k + UjBi + VjC 


■ [ ( Cy.al 

A,^sina.„ ) 


) 


A_„ (eiCy, -1) + A'll + 


(eiCyi -1) + 


(-^^) cosach(ejCy, -1) ^ 


2A ja 

y(y 


^2a7^)( "^) + yC)A_(eiCy. -1) 


L.P [ sinach ) 


(eiCy. -1) + ( ) 


E2[p'*a* + p*A'*a* + 3p*a'*] 

1 / V,a^ r .1 /" -,* r k + u3, + v3 ^ 

y(y—\ — L - I 7^:^^ - / 


Cyial 


ikpS^y ,+ paV,[ ik( a'.-(j^)( -f^) 


-1) + 
cosach(eiCyi -1) 

A_oo(eiCyi -1) ] 

A^„(eiCy. -1) 


] - 


+ 


2aj f \ Cy, 

(k + u3, + ViO )]}^ + 1/2 { ^ ik (p'* - (k + u3, + ViO 


( (eiCy- -1) )] + ikpUV, + pm[ ik( 


a'* + 


( ) 

Cy. ^ 


(eiCyi -1) sinach + 


(^) 

' Yi ' 


(eiCyi -1) cosach 


)i 


(B20) 


The E, M, and C constants presented in this section are found in Appendix E. 
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The next step requires that Equation 220 be broken down into its real and imaginary 
parts. The solution deals first with the four terms containing the unknown complex constant 
A_^. These are broken into real and imaginary parts as follows: 

1. B,A_„ (e'Cyi -1) 

Bi = Bih + iB,i 

A_oo = A_ooh "f iA_ooi 

eiCy, = cos (Cyi) + i sin (Cyi) 

Thus, the real part of the expression is 

B,kA_ooh (cos(Cy,) -1) - B,,A_^, (cos(Cy,) -1) - 
B,kA_«„ sin(Cy,) - B„A-cor sin(Cy,) 

and the imaginary part of the expression is 

B,kA_<„, (cos(Cy,) -1) + B,,A.„k (cos(Cyi) -1) + 

Bi„A_„n sin(Cy,) - B,,A_o.i sin(Cyi) 

2. A_„ (e'Cyi — l) 

The real part of the expression is 

A_,^n (cos(Cy,) -1) - A_^i sin(Cy,) 

The imaginary part of the expression is 
A_„, (cos(Cyj) -1) + A_otr sin(Cyi) 

3. ikB,A_o^ {e'Cyi —1) 

The real part of the expression is 

-k[B,,^A_«>, (cos(Cyi) -1) + B,,A_.r (cos(Cy,) -1) + 

B.rA_„,h sin(Cy,) - B,iA_c., sin(Cy,)] 

The imaginary part of the expression is 

k[B,„A_«R (cos(Cy,) -1) - B,,A_.., (cos(Cy,) -1) - 
B,„A_^i sin(Cyi) - B,,A,^r sin(Cy,)] 

4. ikA_oo (e’Cyi -i) 

The real part of the expression is 
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-k[A_«>i (cos(Cy,) -1) + A_»r sin(Cy,)] 
The imaginary part of the expression is 

k[A_ooR (cos(Cyi) -1) - A_„i sin(Cyi)] 


Now let, 

E = _ E,IAu, ^ E,AiSin«.H _ 2A,IUi Airsincv^h 

' Cyjai' 2yCyL Cyi 

E,IAi (k + V;C) E,A,cos«,.h 

E. = - + 1 - 

Cyia, y 

2A;I (k + yC) AiI^cosof<.h 

2yCy, y 

E — ~VV,Uj _ / 7 ~ 1 \ 

27(7— DCyai" 7(7” 1 ) \ 2aiCy / 

Oi^V.Ui PiOiV, sin n,, 

4Cya/ 2Cy 


27(7-l)Cyar \ 2Cyai/\ 7(7-1) / 

U^V,(k + v,C) ^,U,V, cos 

4Cyaj^ 2y 


(B21) 


(B22) 


(B23) 


(B24) 


Substituting the relationships for the real part of the A+^ terms, along with Equations B21 
through B24 gives 


E;, [B,rA (cos(Cy) -1)- B,,A-coi (cos(Cy) -1) — 
B,RA.ao,sin(Cy) - B„A.^Rsin(Cy)] + 

E, [A_^R(cos(Cy)-D - A_^,sin(Cy)] + 

E,A'.J - E, (p R*a* + p*A'/a'* + 3 p*5'r*) 

= - kEs [B,RA.^,(cos(Cy) - 1) + B,,A_„„R(cos(Cy) - 1) + 
B,RA.,oRsin(Cy) - B„A-ooisin(Cy) ] + 


Eg [- k(A_«,(cos(Cy) - 1) + A_«Rsin(Cy))] 

-u,, (M)^ (®) 


paV 

7(7 — 1 ) 


), 


(B25) 
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Collecting terms and rearranging Equation B25 produces: 
-I- EgA,^, = — E,A',„I + 





, pOV, 

1 ) 2 


) kp 

' I 

) 


pa" ] 

V - 1W, 


yiy — 1) 


I 


+ E., (a*/7„* + T?*A\*a* + 3a'R*P*) 


(B26) 


with 


E- = cos (Cy,) — 1 

E„ = E, (E-;B,b — B|| sin (Cy,)) + E^E- + E^k (B,,E-; + 
Bih sin (Cy,)) + E«k sin (Cy,) 

E,, = -E., (B,,E, + B„( sin (Cy,)) — E^ sin (Cyj) + 
Er.k (B,hE: — B,| sin (Cy,)) + E,;kE- 


Equation B26 represents the real component of Equation B20. The imaginary component is 
E;, [B,nA „,E: + B,|A „|,E: + B,„A sin (Cy,) - 

B||A ,,i sin (Cy,)] + E., [A ..E^ + A „k sin (Cy,)] + 

E,A'„I - E, lp*a* + /l=^A',*a* + 3^*5',=^] 

= E,k |B,hA „bE, - B„A ,^,E, - B,„A ,,, sin (Cy,) - 

B„A sin (Cy)] + E,k [ A E^ -A sin (Cy,)] + 


kp'R* 

ka'„* 


/ a-V, 

\ 27(7 - 


( 


- 1 ) 
paV, 

7(7 — 1) 


+ 


+ 


4 

pOv, 


+ 


) 


r pa" , 1 V' 

_ 7(7 - 1) 2 j , 


(B27) 
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Again, collecting terms for A.,,,, and let 

E,„ = E, [B..E, + B,r sin (Cy,)] + E, sin (Cy;) - 
Esk [B,„E, - B„ sin (Cy;)] - EekE, 

E,i = E., [B.rEt ~ Bi, sin (Cy;)] + E 4 E 7 + 

Esk [B„E, + B,r sin (Cyj)] + Egk sin (Cy,) 
Substituting the above relationships into Equation B27 gives 


^hA-ooR 


-E,A'i,I + E, [p ,*a* + p*A'*a* + 3p*a\*] + 


kp'fi* 


ka'n 




/ a^V, , U^V, 

^ 27(7 — 1 ) 4 

/ pav, , p_m, \ 

i 7(7 - 1 ) 2 ) 


) 


+ kV'„ 


( 


— 2 
pa 

7(7 “ 1) 


+ 



+ 


(B28) 


The next step involves the combination of Equation B26 with Equation B28 and solving 
for A_^r and A_^,. The sequence requires that Equation B26 be divided by Eg and Equation 
B28 be divided by E,o, as shown in Equations B29 and B30. 


1 + A_^, 

( 

t) 

( 

It) 

+ p*A'„*a* + 

33*a'R*) 

( E, 

1 Eg 

) - * ( e: 

) 

- ( K ) 

- * ( 1: ) 

1 + A_„, ( 

^ E. 

^ E,o 

) ( 

E, 

Eio 

■) 



(B29) 


(p',*a* + p*A\*a* + 3p*a,*) 



+ 


where, 


E.2 




P R 




/ rvk U^Vk \ 

[ 27(7 - 1 ) 4 y , 

/ pa\ pO^k \ 

V 7(7 “ 1 ) 2 / , 

/ paVk pUVk \ 

i 7(7 - 1 ) 2 ) , 


+ a' 



(B30) 
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Subtracting Equation B30 from Equation B29 yields 



Substituting Equation B31 into Equation B29 and solving for A_„r produces 

A..K = -A',rI ( ^ ) + + ^*A'«*a* + 3p*a'„*) ~ 



Before proceeding further, the following relationships must be given; 



(B31) 


(B32) 


(B33) 
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Substituting Equation B31 into Equation B32 and using the relationships detailed in 
Equation B33 yields 

A.<^rj = (EjfiA'iR + EitA'ii) +(E,gp'„* + E,gp',*) + 

(E,oA'r* + E„A',*) +(E,,a'„* + + 

(E,,V'„ + a,V',R) (B34) 


The nondimensional momentum equation has the form 
jl'jA, + PiA’i — p*A'* — p'* = a“^ (2^a'* + p*A'*a* + p'*a*) 


1 [p,AJ + A'|I +2Aj (u', sin + v', cos «<.,,)] 

{jy 


at 


r, 1 1 + 5 V 

dt ^ ' at 


+ PiU 


Inserting the relationships given in Equations B9 through Bl9 into Equation B25 and dividing 
through by e'*" produces 


[- ( 


k + UiB| + VjC 


(A (e"'' - 1) ) A, + p;A',- p*A'* - p'*a*^] 
= a* (2p*a'* + p*A'*a* + p'*a*) - I ( - 


A,IA_ (e'"'- - 1) + A'J + 


2A. 


1 BiA-oo 

^ Cy, 

sin ry.h ^ 

- 1) + 

cos fV,h ) 

/ '^>i 

(e 

-.)]} . 


U 




k + UiB] + V|C' 


CyiSi^ 


A_ {e' "' - 1) 

B 1 A / icvi 


+ p,U,ikV'| + 


P.V. 


ika'* + 


ik - 


Cyi 


(e 


1) sin fv^h ^°° (e — 1) cos 


]i 


(B35) 
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r 


Rearrange the Equation B35 to collect A_„ on right side of expression. Assume the following 
relationships: 


M, 

M 2 

M 3 

M, 


UiAi UiA;I , 2AJ 

cjT " W + cK 


(k + v,C) Ai (k + ViC) , 2 A,r 

^ ^ - . 2 COS O’,), 

Cyi Cyia, y. 


U,V. _ p,V, sin 
2 Cy;a;" 2 Cy; 


p,Vi cos Of,) 

2y. 


(B36) 


Substitute the relationships of Equation B36 into Equation B35. 

M, [B,A_ (e"'^' - D) + Mj [A_ - 1)] + 

M 3 fikB,A_ (e^"^' - D] +M, [ikA_ - 1)] 

= (-Pi - I') A', + (p* + a’^p*) A'* + 2 a*'p'=" + _j_ 

ikp.U.V', + — ’ + 2p*a*a'* 


(B37) 


The next step in the sequence involves the separation of Equation B37 into real and imaginary 
parts. First, assume 

M, = -p, - r 

(B38) 

Ms = p* + p*a*“ 

and 

M 7 = M, [B.rE; — B|, sin (Cy,)] + MjE, — 

M 3 [kBiiE, — kBiR sin (Cyi)] — M^k sin (Cy,) 

Mg = — M, [B,,E, + B,r sin (Cyi)] — Mj sin (Cyj) + 

kMg [ — BjrEt + B„ sin (Cy,)] — kM^E, (B39) 
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Real Part 


M, [B,rA_<^rE 7 - B„A_„,E 7 - B,rA_„, sin (Cy,) - 

B„A_^r sin (Cy*)] + [A_„rEt - A_„,, sin (Cyi)] - 
kM, [B,rA_<,,E, + BhA.^rE, + B,rA_„r sin (Cy;) - 
B,,A_„, sin (Cy)] - kM, [A.^.E, +A_<„r sin (Cy)] 

-= M,A'.„ + M.A'.* + 2pVi>' - - 

kf,U,V'„ - + 2p*a*a',* 


Substituting Equation B39 into Equation B40 yields 

M^A.^r + MgA_„, = MgA'iR + MbA'r* + 2p'R*a*' - 


+ 2p*a*^^* 


Imaginary Part 


^1 [^irA-coiEv + BijA_;j,RE 7 + B]rA_^r sin (Cyi) B,]A_ooi sin (Cyi)] + 
[A_,E, + A_„r sin (Cyi)] +kM 3 [B^rA^rE^ - B,,A_„,E, - 
B,rA_^, sin (Cyi) - B„A_„r sin (Cyi)] H-kM^ [A.^rE, ~ A_<„, sin (Cyi)] 
^ i-p. - P) A',, + (p* + A'* +2p'*a*^ + 2p*a*a'* + 


kpVU,V, 


+ kp,U,V'R, + 


kp,a'R*V, 


Assume 


Mg — M, [BijE^ + B|r sin (Cyi)] + sin (Cyi) + 
kMg [B,rE 7 - B„ sin (Cyi)] + M,E,k 
Mio = M, (B,rE 7 - B„ sin (Cyi)] 4- M^E, ~ 


kMj [B„E7 + B,r sin (Cyi)] — kM 4 sin (Cyi) 

Substituting the relationships of Equation B43 into Equation B42 yields 

MgA_<„R + M,oA_, = MgA'„ + MgA',* + 2p'*a*^ + 

2^a*a'* + + kp.U.V',R + 


(B40) 


(B41) 


(B42) 


(B43) 


(B44) 
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In order to solve for A_„r and A_„„ make the following assumptions. 


= -I 


( 


EgEjs / 


■ = E, 

E,„E., 

. = a*E^ , E,, 

EgE,g ^ E.gE„ 

, ^ _ a*Ea _ Ei2 

E,oE« E,E„ 

, ^ P*a*Ea 

'30 T? T? 

^8^15 

, _ p*a*E2 

E,.E„ 

, _ 3p*E z , Ei4 

EgE; ^ EjoEi, 


3p*E2 _ E„ 

EjoEis EgEi5 


E 


34 


E. 


EgEig 


E, 


Eia 

E.„E.3 


(B45) 
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Substitute the relationships of Equation B45 into Equations B41 and B44 to solve for 
and A_„,, such that 


A_ 

ooR Ell 

A'i 

R + EjtA'i, + Eibp'r* + E 


+ 

EjoA'h* 

+ 

EiiA'i* + 



Eo^I'r* 

+ 

E23a'.* +E,y'n + E2sV',r 






(B46) 

A_ 

ool E 26 

A' 

^ iP 

1 + EjvA'i, + Ej^p'r* + E 

'29P I* 

+ 

Ego^'R* 

+ 

Eg, A',* + 



EggSV* 

+ 

EsaS'i* +E 34 V',, + EasV'iR 






(B47) 

Substitute 

Equations 

B46 and B47 into Equation B41 to give 




M, 

(E.gX'iR 

+ 

EjvA'i, + Eisp'r* + Ejgp'i* 

+ E 

i 2 oA 

■'r* + E 2 

:.A' 

[* + 



E 22 a'R* 

+ 

EosQ'i"* +E 24 V',, + EjsV'ir) 

+ 

Mg 

(Egg A iR 

+ 




E 2 .A', 

+ 

Ejsp'r* + Eogp',* + EjoA', 

+ 

Eni 

A'l* + E 32 S 

R ~ 



E,,a',* 

+ 

EJT\, + E,y\^) 







= 

M,A'r + MgA'R* + 2 p'r*3'*^ - ^ 

*u,v 

9 

i_ 

- 





kp.U.V'.. - 




4- 2p*a*a'f 


(B48) 


Let; 


M|, = E.gM^ + EjgMg — 2a*‘ 

kO,V, 


M,2 E.gM^ + EjgMg + 


M,;, = — EigM-; ~ EogMs + Mg 

M,4 = — E17 M; — EotMs 

M,s = — E,(,M^ — EgoMg + Mg 

M,g = -E,,M, - K„M8 

M„ = -E22M, - E,Ms + 2 p*a* 

M.8 = E2,M, - EggMg - 

M,g = - E24M7 — E^Mg — kp,U| 

M 2 ,, = - E^gM, - EggMg (B49) 

Rearrange Equation B48 to collect p'*p and p'*, on the left side of the equation and all other 
terms on the right side. Substitute the relationships of Equation B49 into Equation B48. 

M,,p'r* +M,2 p'*, = M.gA'iR +M,4A'„ + M,.,A'*r + M,eA'*i + 

M„a'\ + M,ga'*, + M,gV',g + M2 oV',h (B50) 
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Working with the imaginary part of the momentum equation, substitute Equation B46 and 
B47 into Equation B44 to give 


M9 [^leA iR 

+ EnA'i, 

+ 

E, 8 P'r* 

+ 

E.sp 7 

+ E^oA'r* + E 2 ,A',* + 

E223 R* 

+ E 2 ,-ja'i* 

+ 

E2.V',, 

+ 

E 2 gV' 

ir] Aflo [E26A jR + 

E27A i| 

+ EjsP R* 

+ 

E29P I* 

+ 

E30A' 

R* + EjiA'i* + Eg 2 a R* "t" Egja' 

Ea,V'„ 

+ EasV'iR 

] = 

= MsA'r 

+ 

MeA', 

* + 2 p',*a*" + 2 p*^a',* + 

j£^ 

< 

Ms- + 

kp, 

,U.V',R + - 

kp,a' 

* V 

R » 1 


Further, assume the following relationships. 

kU V 

M„ = E„M, + E,sM, - 

M.,., = EjgMg + E,,»M,o — 2a*" 

M,, = - E,«Ms - E,fiM,„ + Ms 

M ,4 = - E„Ma - E 2 ,M,u + Mfi 

M.js — E20M9 EsqN^u 

M,s = - E,,Mi, - E„M,o 

M,, = - E,,M9 - Es,M,„ + 


M.S = - E,.,Mi, — E:,;,Mi„ + 2p*a* 

M.9 = - E.jMh - E:„M,o 

M,,„ = - E,,.M9 - E;,sM.„ + kp,U, (B52) 


Substituting the relationships of Equation B52 into Equation B51 and rearranging the 
resultant to isolate p'*r and p* gives 


— M^sA'iR + Mj^Ai, + M,sA'r* + M.,sA',* + 

M,,a'R* 4- M,,a',* + + M^oV'.r 


(B53) 


Solve for p'r* using Equations B50 and B53. First multiply Equation B53 by Mij/Mj, to give 


M,, ) 


p'n* + M,2 p'|* 


M,, 

M,, 


[MaaA'R + 


MjjA'i, + M^sA'r* + M.^eA',* + 
Ma7a'R* + Mjga'i* + 

M, 9 V'„ + MsoV'.r] 


53 



Next, subtract Equation B53 from Equation B50. 



Now, let 


(B54) 


M:„ = 

M„ - 

M,,M„ 

M,2 


M .,3 = 

(m„ 

M„Mj3 

M.. J 

- M3. 

M33 = 

( M„ 

n 

M33 J 

- M3. 

M34 = 

(m„ 

M 12^25 N 

M ,3 ) 

- M3. 

M33 = 

(m„ 

M,2M2fi \ 

M22 J 

- M3. 

M, 3 g = 

(m„ 

M.2M2, \ 

M22 J 

^ M. 3 , 

M, = 

(m„ 

1 ^ 12^28 \ 

M23 ) 

- M3, 

M.is 

(m„ 

h 4 , 2 M 2 g \ 

M23 J 

- M3. 

M39 

(m,. 

^ 12^30 \ 

M22 / 

- M3. 


(B55) 


Substituting the relationships in Equation B55 into Equation B54 results in the 
following: 


p'r* — MajA'iR + Ms;,A'i, + M34 A'r* + 

Mji'* + M3ea'R* + M3, a',* + 

M3gV'„ + MggV'iR 


(B56) 
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p\* = ^ [M,3 - M„M„) A',„ + (M,, - MJAJ A'n + 

(M ,3 - M,Mn) A'^ + (M,3 - M 33 M,,) Ar + 

(M„ - M:Mu) a'„* + (M ,3 - M 3 .M,.) a'.* + 

(M ,9 — MagM,,) V'„ + (M 20 — MggMn) V',r] 

Assume the following relationships: 


M,o = 

M,, 

M32MH 


M, 

M„ = 

M„ 

- M33M,. 


M,2 

M« = 


- M.,M. 


M,2 

= 

M.g 

- M,,M„ 


M,2 

M,, = 

M„ 



M.2 

M,g = 

M.g 

- M.,M„ 


M,2 

M,g = 

M ,9 



M,, 

M, = 




M.2 


Substituting the relationships in Equation B51 into Equation B57 results in 
/J',* in the momentum equation. 

p\* = M,gA'R + M,.A'i, + M.^A'r* + 

M.gA',* + M,,a'R* + + 

M,gV'„ + M,,V',r 

Working with the continuity equation, recall that 

[//*a* + f)*A'*a* + p*a’*] — [A, (u/ sin + v', cos + 

AM+ p'AIl = - [p, ^ + V,^] 


the value of 


(B59) 


(B26) 
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Substituting for the perturbation quantities and dividing through by e'*'‘ gives 
(p'*a* + p*A'*a* + p*a'*) “ | (e"^* ~ D sin + 


” — 1) cos 




1 


ikfi.w', + 




(B60) 


Assume the following relationships: 

<-1 _ A| . . UiA:I 

C, sin 


Cj — — cos a,h + 


C ^ UjV. 

^ 2Cy.a,.^ 


C = ^ V 

[ 2Cy^:^ ) 




(B61) 


Substituting the relationships in Equation B61 into Equation B60 and separating the real 
parts of the resultant equation yields 


C, [B,rA_^rE7 - B,,A.„,E7 - B,rA-<^, sin (Cy;) - 

B,,A_„h sin (Cy)] + [A_„rE, - A_^i sin (Cy,)] + 

[p R*a* + ^A'p*a* + P*a'R* - A'^J] 

= -kCa [B,rA_„,E7 + B,,A_„rE7 + BirA_„r sin (Cy;) - 
B,,A_„, sin (Cy)] - kC^ [A.^iE, +A_^r sin (Cy)] + 

kpi V'„ + (B 62 ) 

Again, assume 

Cs = CiBirEt ~ CiBii sin (Cy) + C^Et + 

CnkBijEv + CakBjR sin (Cy) + 04k sin (Cy) 

^6 = — CjBijE^ — C,B,r sin (Cy) — Cj sin (Cy) + 

CskBiRE^ - C^kB,, sin (Cy) + C4kE, (B 63 ) 
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Substituting the relationships in Equation B63 into Equation B62 yields 


C,A_r + CeA_, + (p'R*a* + p*A\*a* + ~ IA'„) - 

k^,v.„- !^_o 

Next, substitute the values for A„„b and A_„, into Equation B64 

a(E,eAV„ + E,,A'„ + E.«p'h=^ + E,sp',* + E^A'Z + E,,A' * + 
+ E,,V'„ E,,V',„ ) 


Combining like terms produces 

(C,Ejg + CgE^e —I) A'iR + (CsE, 7 + CgE27) A'i, + 

(CsEia + CfiEjs + a'*') p'r* + (CjEis + CgEjg — kV,/2) p’,* + 

(C,E,, + CgEgo + P*a*) A'r* + (C 3E7, + CgE,) A',* + 

(C,E,, + CgE ,7 + p*) + (C,E^ + C,EJa',* + 

(C,E,, + CgEg, - kp.) V\: + (CgE^s + QEJ V'.r = 0 


Again, assume 


C7 = C5E16 + CgEjg - I 

C« = CsE ,7 + C6E27 

Cg = CsE.a + CsEts + a* 

C,o = CgE.g + CgE^g - kV,/2 

C„ = C.E^g + CgE3o + p*a* 

C,2 = C5E2, + CgEg, 

C ,3 = C 5 E 27 + CgEjj + p* 


Ch ^ C,E^ + CgEg 


C15 CjE 24 "k CgEg^ kp, 

C|* = CgEzs + CgEgs 

Substituting Equation B65 into Equation B64 gives 

C7A',r + CgA'„ + C,pV + C.op'," + C.A'r* + C.^A',* + 
C.3SR* + C„a',* + C,gV'„ + C,gV',R = 0 


(B64) 


(B65) 


(B66) 
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Substituting for p\* and p',* results in 


Cg (MggA'iR + MggA'i, + Mg^A'p^ + MggA',* + M^a's* + 4 “ 

MggV', + MggV'R) + C.g (M^A'^R +M,.A', + + M^A'.^ + 

M,,a'„* + M,,a',* + M«V'„ + M,,V',„) C.A'r + C,A', + 

CmA'r* + C.J',* + C^ga-R* + C.,a',* + C.,V'„ + C.sV'.r = 0 
Combining like terms gives 

(CgMgj + C,oM4o + C7) A'jR + (C9M3, + C,qM^, + Cg) A'i, + 

(CgM.,4 + C,oM42 + C„) A'r* + (CgMgs + CigM^g + Cjj) A',* + 

(CgMgg + C10M44 + 0,3) 3 'r* + (C9M3, + C10M45 + Cu) a'l* + 

(CgMgg + C.gM^e + C.g) V'„ + (CgMgg + + C,g) V'.R = 0 (B67) 

Assume 

C,7 = C9M33 + CigM^u + C, 

C,B = C9M3., + CioMj, + Cg 

C,g = CgMg4 + CigM^j + C,, 

C20 = CgMgg + C,„M43 + C,2 
C2. = - (CgMgg + C,oM44 + C.3) 

C22 = - (CgMg, + C, M43 + C,) 

C23 = CgMgg + C,o M46 + Ci5 

C24 == C9M39 + C,o M47 + C,fi (B68) 

Substituting the relationships in Equation B68 into Equation B67 and solving for aV'*’ and a'l* 
gives 

CjiS'r* + C225',* =C„A',r + C.gA', +C.gA'R* + C20A',* + C23V',, + C2;V'.R 

(B69) 

The imaginary part of Equation 24 is 

+ pA',*a* + p*a',*) - IA',+ C, [B,rA_,E, + 

B,,A_„rE2 + BirA.^r sin (C5^) - B,,A_„, sin (Cy;)] + 

C2 [A_,E, + A_r sin (CyJ] -kCg [B.rA^rE, - 
Bi,A_^,E2 - B,rA_^i sin (Cy,) -B„A_<^r sin (Cy,)] - 

kC4 [A_„rE 2 - A_„, sin (Cy,)] + kp, V',r + = 0 (B70) 
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Again, let 

C25 = C, [B„Ev + BjRsin (Cy;)] +C2 sin (Cyi) - kC^ [B.rFE, - 
B„ sin (Cyj)] — kC^E, 

C26 = C, [BirEt — Bi, sin (Cy,)] +C2E7 + kC^ [B„Ev + 

B,r sin (Cj^)] + kC< sin (Cyi) (B 71 ) 


Substituting the relationships of Equation B 71 into Equation B 70 yields 


C2.A 


-coR ^26 A 

kp'H*V. 


-ccl + 

= 0 


+ p*a',*) -IA'r + kp. V'.r + 


(B 72 ) 


Substituting for A.„r and A_^, into Equation B 72 gives 

C.^e (E26 A',r + E27A'i, + E28 p'h* + E 29 P ,* + EjqA'r* + EgiA'i* + 

E:,2a'H* + Ea^a',* + Ea^V',, + EasV'.R] + C25 [EigA'jR + EnA'i, + 

E|8 /o'k* + Ejsp'i* + E2 (,A'r* + EjiA'i* + Eaja'R* + Es^a'* + 

E 2 .V',, + E2,V'.r] + [p'*a* + p*A'*a* +p=^a'.*] - lA', + kp.V'.R +-?^pV = 0 

Collecting like terms, as before, produces 

(C26 E26 + C2S Eis) A'iR + (Cj 6 E27 + C26 E„ — I) A'i, + 

kV, 

{C26 Ejg + Caa E ,8 + — ^) Wr*' + (C26 £29 + C25 E,9 + a*) 


p'l* + (Cafi Eno + C 25 Ejo) A'r* +( 0.26 Ea, + Cjj E^, + p* a*) 

A’,* + (C 26 Ea 2 + Cjs E 22 ) S'r* +(€26 E;,3 + C 25 Eaa + P*) 

a',* + (C 26 Ea^ 4- C 25 E 2 J V ',1 + (C 26 Eaa + C 25 E 25 + k p,)V',R = 0 


Again, assume 


C2, = 

C2« = 

C2. = 


C26 E26 + C25 E,6 

C26 Ej 7 + Cjs E ,7 — I 


Cofi E-s + Cos E.o + 


kV. 

2 


Eao — C26 E29 + C2S E,9 + a* 

Cai C26 Eao 4 “ C25 E20 

Cai = Cm Eaa 4" C^ E^ + p* a* 


(B 73 ) 
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C33 Cgfi E32 “1” C26 E22 

Ca4 = C 26 E 33 + C 25 E 23 + "p* 

C35 = C26 E34 + C2S Ej4 

Cm = C26 E35 + C26 E25 + k p, 


Substituting the relationships of Equation B74 and the relationships for and 
collecting terms gives 

(C29M32 + C30M40 + C27) A'iB + (C29M33 + C30M4, + Cjg) A'i, + 

(C29M34 + C 3 „M 42 + C3.) A'r* + (C29M33 + C30M43 + C32) A' * + 

(C^aM.^g + C 30 M 44 + C 33 ) a'„* + (CjflMa, + C 30 M 45 + C 34 ) a',* + 

(C. 29 M 33 + C30M46 “t" C35) Vjj "b (C 29 M 39 + C30M47 + Cgg) V ,r 0 

Further, assume 

C 37 = C 29 M 32 + C 30 M 40 + C 27 

Cm = C 29 M 33 + C 30 M 4 , + C 28 

Cgs = C 29 Ms 4 + C30M42 + C3, 

C40 C2gM;)5 4 “ C3oM 43 “b C32 

C4J = — (C29M36 + C39M44 + C33) 

C42 = — (CjsMg, + C3 oM45 4 - C34) 

C43 — C29MM + C37M46 + C35 

C44 = C^sMm + C30M47 + C3S 

Substituting the relationships of Equation B76 into Equation B75 gives 

C4, 1 'r* + C42 a',=" -=C 37 A'iB + C38 A'i, + 

Cgg A'r* + C4oA'| + C43 V',1 + C44 V'lR 

Recall that 

C.ia'R* + Cjja'i* = C,7A'iR + CigA';, + Cj^A'r* + 

CjoA'i'*' + CagV'ii + C24V',R 


(B74) 
i'*, and 


(B75) 


(B76) 

(B77) 

(B69) 
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Multiplying Equation B 78 by and subtracting the resultant from Equation B 77 yields 



Further, assure 

C _ p C21C42 

46 '^41 p 

V^22 

p _ 1 - ( (> _ CnC 42 \ 

C« 1 ^=*^ C22 / 

p — 1 (q C1HC4; \ 

C45 C22 ) 

p = ^ /p ^ 19^42 \ 

C45 C22 } 

C = ^ f n — C20C42 \ 

C 4 a C22 J 

P = ^ f p ^ 2,^042 \ 

C 4 a C22 J 

P = ^ / p _ ^ 24^42 \ 

C4. C22 J 

Thus, 


(B 78 ) 


=> a B* C4 cA iB + C47A'i, + C4gA B* “i“ C49A',* + 

CaoV'., + Cg.V'.R (B 79 ) 

Substituting Equation B 79 into Equation B 77 and solving for a',* and then combining like 
terms gives 


a ,* p [(C37 C4,C4g) A IB + (Cgg ^4,047) A'u + 

V-/42 

(C„ - C,,CJ AV +(C 40 - C,,CJ A',* + 

(C43 - C4.CS0) V\r + (C44 - C,,CJ V\n] 
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Further, assume 


C52 (C37 C41C46) C42 

C« = (Csa - C41C47) - C42 

C54 = (C39 C41C48) ~ C42 

C55 = (C40 “ C41C49) ~ C42 

Cs6 ~ (C43 C41C50) ~ C42 

C„ - (C44 - C4,C3,) - C42 


Substituting the relationships of Equation 136 into the relationship for a',* gives 
^ a'.* = C 32 A',h + C^aA'a + + C33A',* + 

Cjj'u + C„V',H 

This completes the analysis for Region 1. 


(B80) 


(B81) 
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APPENDIX C 

SOLUTIONS TO THE EQUATIONS OF MOTION FOR REGION 2 


The nondimensionalized equations of motion are represented by Equations 38 and 39. 
Only two equations are needed because all the inlet parameters to Region 2 are known. This 
leaves two unknowns: the density and velocity perturbations just upstream of the shock. To 
obtain a solution to these equations, again make the assumption that all flow parameters vary 
harmonically in time. Thus, 

P'uB = P'uB exp ikt 

A'b = A', exp ikt 

P UB P MB 6Xp ikt 

U'ug = U'uB exp ikt 

(Cl) 


making these substitutions into the momentum equation (39) and dividing by e'‘‘‘ gives 

(p*A'* + p'* - Pu,A'„g - p'uA) 

uaWyg "I” OuB ip UB^uB^e us'^s "i" PubUubA g)] 


+ a* (p*a* +p*A'*a* + p*a'*)] + 


ikU,V, 


P2V2 


-2 (P * + P u«) + ikpjUjV'j + ik — - — (a'* + O'ug) 

Making the substitution p' = a^p' and collecting terms produces 
(p*A * + P “ p usA s ~ p us^se^us) 

= (2O us^us P usU^us-^s PuaCl^us'^ s) (2p*a *a* + p *a*^ + p*A *a*^) + 


(C2) 


ikU,V 


2 (p'* + p'us) + ikp2U2V'2 + ikpjVj (a'* + O'us) 


(C3) 


Real Part 


P R + P*A R P ugR Asfi^us PugA' 

kp usiUjV. 


~ P usrO^us^s 


+ 20'ugRWus 


kp2U US1V2 


-B* kp^ayVa 


2p*a'%a^ 


- p ga** - 


kp'itl2V2 


— kp2U2V'2i + 


PUgO*ugAgR P*A'r8*^ 


(C4) 
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Rearranging terras produces 


(_a2 \ _ 02 A ) o' +( ) 

l, « US^S US^S/ P USR 2 / 


P USI 


~ (pus^^^us Pus) A SR 2P'r (p* + p*a**) A R + 20 'usrWus 

kpjU ugjVj kp j UjVj _ kp^a ,*V2 

5 5 kpjUjV 2 , - 2p*a'*a&* ^ 


(C5) 


Next, assume 

= (-aVs - U^us) As 

kU2V2 

M« = 

Mso “ pus PusU^US 


=p* + P*^*" 


Substituting Equation C6 into Equation C5 gives 


(C6) 


M48p USR + M^gP USI ~ MggA'sR 2p'p* + M^g^A'p* + 2U'ug,Wus — 


k320\.siV2 kp'l02V2 


— kp2U2V'2, — 2p*a'*R§*- 


kpja'IVg 


(C7) 


Imaginary Part 


^4sP USI i^49p USR SI 2p | IVIi;iiaA [ 2U USI^'^US 

+ kftO,V'„ - 2,7*a'*,5* + 


(C8) 
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Multiply Equation C8 by M^a/M„ and add to Equation Cl to produce 


Mj., + 


M. 


M, 
* + 


) ) A'„ - 2P-, - 2 ( ^ ) PT + 


( M^h Mfio^ \ 

I M« ) 


1 A',* + 2U'„srWus + 


9 / M^a W^is \ TT, 

I M« ) ^ 

( , kp'*U,V, ( M.a ^ 

\ / 2 2 \ M« / 

- kpAV'2, + 

^ 2 V M„ / 2p*a'*Ra* *’ 2p*a \ j a* ~ 


k/^2U t lSI^a I kp2U USR^2 
2 2 


kp2a'*iV 2 ^ kpza'RVj 
2 2 


/ ^48 \ 

[ M,3 ) 


(C9) 
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Assume the following relationships 

M.; 


Ms, = M49 + 




Ms, = 


Ms, = 


Ms4 = 


Mss = 


M.SS = 


Ms, = 


Ms 


Ms, 

M^g M50 
M49 M51 

-2 


Ms 


■2 M. 


M49 Ms, 
-MsnA 


Ms, 


Ms 




M49 Ms 
2w„s + 


kp^V, 


(M,A 

\ M,J 


- Ms, 


Ms 


Ms 


1 f 2wygM4g kpgV, \ 

Ms. I M49 2 ) 


Ms, = 


Ms, = 


Ms, = 


M„ ( 




a^2p* M^g _ kp,V, 

M49 2 

kp,V2 M4S ^ 


2M. 


( -kU,V, \ 

/Im V 2 ; 

L_ / kU,V, M4S \ 
'Im V 2M49 j 


Ms 


Ms 


M 


-k(p U), 

Ms. 




(CIO) 
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Substituting these values into Equation 3.7 and solving for p' usi gives 

p'usi = M,,A'sr + MssA's, + M«p'h* + M«p'.* + M^A'r* + 

MstA’i* + Ms3U'usr M 59U USI "b Mg^a I* “t" Mgja n + 

Mgap'i* + MgaP’s* + Mg^V 21 “i" MgjV 2 r 

Substituting the relationships of Equation Cll into C7 and solving for p'^gp gives 
P USR ~ ^ (^50 M^gMg2) A SR "b M^gMgg) A gj "I" 

(- 2 - M«MgJ P'r* + (- M,gMgg) p'.^ + 

(M«,a - M«Mgg) A'r* + (*M,gM„) A',* + ( 2 wus - M«MJ U'usr 

- M„Mgg ) U'us, + ( - M«Mgo)a',* + 

(- 2p* - M,gMg,) a'«* + ( M„Me2) p',* + (- M,gMJ p \* 

(— kpjOj — M„M 64 ) V'j, + (— M^gMgs) V'jR 

Further, let 


M = 

^50 M 49 




M,g 



Mg 7 

^49 ^54 



^68 

- 2 - M,g 
M,s 

M, 


Mgg = 

M^g M55 

M,« 



M70 

(M 5 OA ^49 

Mgg) 

/M,g 

M7, = 

- M„ M„/M,g 


M72 = 

(2Wys M^g 

Mgg)/M,g 

M73 

(- '/2kp2V2 - 

M« 

Mgg)/M,g 

M7, = 

(— ‘/2kp2V2 — 

M« 

Mgg)/M^g 

M73 = 

(- 2p*a* - 

M« 

Mg,)/M,g 


(Cll) 


+ 


+ 

(C12) 
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M,e = (->/2kO,V, - M,9 Ms 2)/M« 
M,a = (- k(pU), - M« Me3)/M,s 

^^79 ^^49 -^6-«/^^48 


Substituting Equation Cl 3 into Equation C12 gives 

p\,,„ = M,sA'sr + M,,A'.s, + M7 sP'% + + M«oA'*„ + + 

Mb-jO'usr + MbbUVis, + Mg,a'*i + Mgsa'^R + Mggp'*, + M^^p'r* + 

^88^ 21 ”b MggV 2R 

Next, the continuity equation is used to solve for the velocity perturbation upstream 
shock. Separating Equation 38 into real and imaginary parts gives 


Real Part 

PusC iisrA, ip hsrUiirAj + Pu.sU(isA sr) ip r* 3* “k R* “b p*A r*3*) + 
k 


^ ip'i* + p'lisi) + PaV'.., 


Imaginary Part 

p,isU'„siAs = — {p'usiCusAs + PusUusA'si) + {p',*a* + p*3'i* + p*S',*a*) 


V., 


(p R* ~b p ^isr) + P 2V 2H 


Substituting for p'i,rr and p\,r, in Equation C15 produces 

Pli.sU IIRrA,.; UiIrAr (MggA RR + Mr^A RI + MggP R* + MggP R^ + M 70 A R^ + 

+ M 730 \,r„ + M7,U\,r, + M^.a',* + M^.a'R* + M^gp',* + M„p'r* + 
M;gV'.,| + M 7 gV',R) - purU^irA'sr -HpR*a* + p*a'R* + p*A'R*a'*) + 

p',* + + M„A'3, + M„p'/ + M„p',* + M„A',* + 

MstA'r* + MggD'tiRR + MggU'iisi +Mgoa'|* + Mg, a'* + Mg,p',* + Ms^p'r* + 

+ MggV'^R) + kp^V', 


(C13) 


(C14) 
of the 


(C15) 


(C16) 
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Next, combine like terms and rearrange so that (U'usr and U'usi) is on the left-hand side of the 
equation and let: 


_ _ ItVj 

Myo = PugAs “I" UusAgM72 2 

- _ kV, 

l^Hl UuS^si^73 2 i^59 


_ - - kVz 

Mg2 ~ Uus-^sMfie Pusi-ius ”i" 2 


kV 

Mai = “ UusAgMsi + — ^Ms.i 


kV 

M«, = - UasAgM^i + a* + 


Ma, - 

M, 

M«7 = 
Mgg 

Mgg 

Mjo 
Me, == 
M92 
M91 


U llgAgMyg 4“ 
fius^sMfig "f 
UuS^sMgg H" 
UuS'AsMin + 
U^gAgM,, -H 
U^gAgMi, + 
Uus-^sMig "b 
UusAgMig 
U U5 AgMig -{- 


kV.2 

2 

kV^ 

2 

kV, 


Me 


M, 


M,g 


p*a* + 
kV, 


kV, 


Mg 


2 

kV„ 


M„ 


Me 


P* + —PT~ Mfi 


kV^ 

T" 

kV, 


Mg^ + kp2 


Me 


(C17) 
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Using these relationships, the real part becomes 

MgoU'usR + MgiU'usi = MggA'sB + MggA'si + M^p'r* + Mggp'i* + Mssp'r* + 

+ MseA'R* + MggA' ♦ + Mgoa'/ + (C18) 

Dealing next with the imaginary part, substituting for p'usr and p'usR gives 

PusU'usiAs = - PusUusAsi + (p'i*a* + p*a'i* + p*A\*a*) - 

k ( ^p'r* + pV',r) - U,sAs (Mg,A'sH + Ms3A's, + M,,P'h* + + 

MsbA'r* + M 57 A',* + MggU'usR + MjgU'usi + Mgoa'i* + Msi^'r* + 

W _ b-V — — 

Mesp'i* + MssP'r* + M^V'a, + MgsV'jr) - — ^ (MggA'sR + M^A's, + 

Megp'R* + MeaP',* + M,oA'r* + M 7 ,A',* + M,3U'„sr + M^U^s, + M,,a',* + 

Mts^'r* 4- M,6P'i* + M„p'r* + MigV'ji + M79V'2 r) 


Now, let 


C 58 Pus As “t“ UusAsMjg + 


kV, 


M, 


Csn UllsAoMsS 


kV, 


M, 


Cfifi UiioAsMto “I" 


kV, 


M. 


kV, 


Cfii j^s^us UusAgMsg 

kV 

Cg, = — UusAsMs 3 — — 77 ^ (1 + M 77 ) 


Mg, 


Cg 3 = a* - UucAsMg, - 


kV, 


M, 


- kV 

UiicAusMb. h^7 


Cb5 P* UusAgMeo 


kV, 


M, 


CsB UusAoMti 


Cg7 UysAgMj 


kV2 

2 

kV, 


Mg 


Mg 


70 



(C19) 


kV, 

T 


kV, 


C« = p*a* - U„sAsM„ ~ M, 


- - kV 

C70 = UygAsMgs 2 (2P2~^ M^g) 


C 71 UugAsMg^ 


kV, 


M7 


Substituting these relationships into the imaginary part of the continuity equation yields 
C.gO'i,g« + C,gU'^,g, = C«,A'g„ + Ce,A'g, + + Cg3P',* +Ce,a'«* + C,,a',* + 

C^Pn* + C,,p\* + C,aA'„* + CagA',* + + C7,V'2 h (C20) 

Multiplying Equation CI8 by Csa/Ma, and subtracting the resultant from Equation C20 
produces, after solving for U'usr: 

U\,SR = C73A'g„ + C7.A'g, + C73 p'r* + C,,p\* + + C,,a\* + 

C,9p'r* + CgoP'i* + CsiA'r* + CgjA',* + CggV'si + Cg^V'^R (C21) 


where, 


r = r — 

'^72 ^59 

1 


C.,«Mg 


Mg 


C,3 = 

C7. = 
C75 - 
C76 ~ 
C77 = 

C78 — 

C79 = 
Cgo = 


) 


C7: 

1 


C7, 

1 


Cr. 

1 


( ^58^82 

I Mg, 

[ CsgMg.) 

Mg, 

( ^58^84 \ 

V Mg, / 

_ CggMgg \ 

Mg, ) 

/p _ CggMg, \ 

Mg, ) 

( _ CggM^ \ 

Mg, ) 

Mg, ) 

/p _C5gMg7_\ 

Mg, ) 


) 
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Csi 

Ca. = 

Csa = 
~ 


C. 

1 

c., 

1 


1 

c. 


( CagMga \ 

Ma. I 


(Cea 

^^70 

(c„ 


M, 

M. 


SI / 


C^M, 


M, 

C.«M, 


Si / 


Ma 


Substituting Equation C21 into C20 and solving for U'usj produces 

U'usi = CgsA'sR + CseA'si + CgyPR*' + Cggp,*' + CggaR*' + Cgoa,*' + 


where, 


CsiPr*' + C 92P1 *' + CssAr*' + C 94A,*' + CggVal' + CggV^R' 


P (^60 CggCyg) 


Caa = 


(Cg, - CaeC,^) 


Cs7 = (Caa - Ca9C,s) 


c = 

'-'AR 


(C,„ - C„CJ 


c„ - (C„ - C„C„) 


C90 = (Caa - C99C2S) 


Cg, Q (Cga Cg 9 C 79 ) 


Cg2 p (Cg7 CggCgo) 


C93 ^ (Caa - CsgCa,) 


Ca. = 


(Cag - CggCaa) 


C95 p (C70 CggCgg) 


Csa p (C71 C5gCg4) 


(C22) 


(C23) 
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The value for the velocity perturbation upstream of the shock given in Equations C21 
and C22 can then be inserted into Equations Cll and C14, given the density perturbation 
upstream of the shock, for a complete description of the flowfield in Region 2. 
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APPENDIX D 

SOLUTION TO THE EQUATIONS OF MOTION FOR REGION 3 


The nondimensionalized equations of motion appear as Equations 60 and 61. Again, only 
the momentum and continuity equations are needed because these are only two unknowns, 
A+„ and Z+„. These parameters describe the irrotational and rotational flowfields. 

Exit flow perturbations are defined first. The velocity is represented as the sum of the 
rotational and irrotational fields, while pressure is a function of the irrotational flowfield only'. 
Conversion of the two-dimensional flowfield into a one-dimensional field proceeds as follows: 

P'e = ^ P'e dy 

JE 0 

which produces 

, .rk+UEBa + VeCir , 

p E = - J [ A^„ eikt (eiCy,. - 1) J 

The density perturbation can be related through isentropic form relationships to the pressure 
perturbations as 


P E 


Pe 


k -I- Ue B 2 + 

CyE 


ve c 1 r , ,1 

e'>“ (eiCy.: - 1) 

&E L -I 


(D2) 


The expressions for the velocity component are listed below: 
Irrotational Field in the x-direction 

Bj A+o 


UlE ~ 


Cyg 


eikt(eiCye— 1 ) 


Vi'e = e‘kt(eiCy, - 1) 

Ve 


Rotational Field 


U RR 




(R^ + C^)yE 
-R 


C (R^ -h C^) yg 


eikt(eiCyE— 1) 

eikt (eiCyE — 1 ) 


(D3) 

(D4) 


(D5) 


(D6) 


Next, expressions for the time derivatives of the exit density and velocity perturbations are 
obtained in the following manner: 


Density 


[* <•-■>] 


Goldstein, M. E., Aeroacoustics, pp. 220, 221. 


(D7) 
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Velocity 


Irrotational Component 


IE 

9t 


9v IE 

at 


(U^) 

( ' ) e‘>‘‘(eiCyK- 1) 


Rotational Component 


ati RE 

at 


avRE 

at 


[ (R^ + C*) e*>'‘(eicy. l)J 

[ C (C* + 


(D8) 

(D9) 


(DIO) 

(Dll) 


Assuming the flow parameters vary harmonically with time, substituting the relationships 
of Equations D3 through Dll into the momentum equation, and dividing through by e“" 
produces 

p'dA + PdsA's +7 >k[( A,,A+^ (eif’.w - 1) ] - p,;A'i, 


{[( 

(- 




+ 




(eicy, - 1) sin a,.t, + 


Cy, (R^ + C^)y,, 

^ _ RZ,. ) 

y, C(R^ + C‘‘)y. / 

^ k + UioBj + Vk 


(eiCy. - 1) cos a^h 


D2REL cos (cXch ^2) 

1) COS («ch ~ 02 ) UjREL 


CyKai? 
B2A+, 


We + 

— ) A,,;A+, (eicv,. - 


Cy,: " (R'^ + C^)yK 

(giCvK - 1) COS ttch ) 


PeAk (( 

( RZ..C ) 

\ y^ C(R^ + C^)yc >' 

PeUrA e COS (ofch ^ 2 ) I D dB W,j, + OdgW d« ) 

U3V3 / 1 ^ ( k + UliBj + VeC \ , ir,-, \ _L 

— 2 — \ ikp ,g - ik pe V ^ - 1) / + 


+ ik (pUVOs + 


ikp3^ 


-{( 


B2A^C30 ^ ^ 


RZ+o 


C (R^ + C^) yE 


CyE (R=^ + C*) Me 

(eiCyi-: - 1) COS Och + O'ds } 


(eiCyK — 1 ) sin «th + 
(D12) 
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The next step requires that Equation D12 be divided into its real and imaginary parts. 
The momentum equation is used to solve for Z+„, and the continuity equation is used to 
solve for A+„r, A Combine like terms and make the following assumptions: 




We sin «ch . 

/~t- Pe + 

CyE Cys 


[ UaiEL COS (och - ft) ] [ j ^ ] - 


Cys^B 

(sin cxch) I cos (ach - 


Mo 


_ ^ k + veC ^ 

= I — / 


_ We cos ach 
Ae 1- 


CyE 

[ Ujrel cos (ach - 02) ]''[( ^ J- ) AepJ - 


Pe U2REL Ae cos CBch COS (cKch ^2) 


M, = _ .P3V3 sing, 

2CyEa| 2CyE 


- . - (k + VeC) U,V, 

M97 = Pe~ 


P3V: 


3 COS ach 


Mo 


■ [ 


2CyEaE 2yE 

We sin ach Rwg cos ach 


(R^ + O) yn C(R^ + C==)yn 


] 


+ 


Moo = 


PeU 2RElAe COS (ofch ^ 2 ) 

(R" + C^)Ye 

P3^3 ^ 

2 (R^ + C^) ys 


IT- R cos ach 1 

J |_ sin ach ^ J 


sin ttch 


R cos ach 


) 


M,oo =cos (Cye) -1 


(D13) 
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Substituting these relationships into equation D12 and extracting the real part yields 
Mw [ B2 rA+jjqu\Ijoo BjiA+goMtoo BjrA+oo sin (Cyg) 

®2iA+cok sin (Cyf;) ] + Mgs [ A+„r Mjoo A+„i sin (Cyg) ] 
k^Mge [ B2 hA+„iMioo B2iA+(jorMiqo "I" B211A+03R sin (Cye) 

B2,A+„, sin (Cyg) ] — kMg, [ A+„,M,oo + A+„r sin (Cyg) ] 

= kMgg [ Z^oorMioo "b Z+„i sin (Cye) ] +Mgg [ Z+„i Mioq 

Z+„R sin (CyE) ] — p'djiA. - Pd.A'.R + [ Pe + Pe (Uzre cos — ^ 2 ))^ ] A'er - 


U'd.RWd. - Ud.W'd.R 


kp'd.lU3V3 

2 


kpa^aV 31 


l^PaU'dscVs 

2 


(DU) 


Collect like terms in the following manner and let 
M,o, = Mg« (M.ooBjr - B21 sin (CyE)) + Mg^Mioo 

— kMge (B2 ,M,oo + B2R sin (Cyg)) — kMg, sin (Cyg) 

M,o 2 = -Mg, (M,oo B2, + Bjr sin (Cyg)) - M95 sin (Cyg) 
kMgg (M[oo BgR B21 sin (CyE)) kMg7MiQg 

M,o3 = - kMgg sin (Cyg) + MggMioo 

M.o, = - kMgg M.oo - Mga sin (Cyg) (D15) 


where. 


Substituting Equation D15 into D14 yields 
M)0|A + ^r “H MiggA+jj;,] M^lOgZ + j^jR “1“ M[|j4Z+;^| “1“ RC 

BC = p (IirAs Pd»A SR ”^ [ Pe Pe (CgRE cos (a^h ^2)) ] A er 


(D16) 


U'd.RWd. - Ud.w'd.R - 


kp d.lUgVg 1_-TT\T/ _ l^PsU dslVs 

2 KpgUgV 31 2 


(D17) 


with 


diR (p djRUd,As + Pd»U'd,RAg + Pd,Ud,A'sR) 


(D18) 
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The imaginary part of the momentum equation is expressed as 

^lOa^ + ooR MiogA + osi M[o7 Z + „h ~t“ MlQgZ + „] + IC 

where, 

M,o 5 = Ms, { BaiM.oo + sin (Cy^)] + M95 sin (Cyg) 

“h kjMise [BjrA^ioo B21 sin (Cyg) ] ~l” k^^sY^^ios 
M,oe = M94 [ B^rMioo B21 sin (Cyg)] MgsMjoo 

- kMje [B2 ,M,oo + B2R sin (Cy^) ] -kMg^sin (Cyg) 
M,o 7 = M98 sin (CyE) + kMggM.oo 

M.os = M70M72 - kM7, sin (Cye) 


and 


IC = - Pd,i Ah - PdsA's, + [ Pe + /0e(U2rel cos (ttch - ] A'e, - 


T~T, - TT _r.f 1 d»R C.iVg ^ 1.- T T X 7 ' I ^PsU dsR^a 

^8l Wjs ~ Ud, W <J3, + _ + kPdUg VgR + „ 


with 


^ dsi (p dBlUdsAg "I" PdsU dslAg “1“ PdaUds'^l) 


In order to solve for A+„r, multiply Equation D 16 by Mys/My, and subtract the 
Equation D 19 to produce 

A+„r = M,,oZ+„r + M,,,Z+^i + MiiglC + M.iyRC 

where, 


M)o 9 

M 105 

MioiMiog/MjoY 

Mjio 

(Mjoy 

M103M] 

06/^^102)/^^! 

M,. 

(M |08 

M.o,M, 

06 /Mjo 2 )/M| 

Ml 12 

= I/M .09 



M„;l 

Mioe/MiogMiog 



Substitute Equation D22 into Equation D 19 and solve for A+^, to give 

A+^i = M.hZ+^r + MiisZ+^i + M,,bRC + MinIC 


(D19) 


(D 20 ) 

(D21) 

resultant from 
(D 22 ) 


(D23) 
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r 


where, 


Mii 4 ~ (h^i07 Mio5h4iio)/M[l 

Mils ” (^^lOa Mid5Mi09)/1VIj 

Mii 6 — MiosMns/MiQg 

Mii7 ~ (1 M|05Mii3)/Mi06 


(D24) 


The continuity equation is used to obtain Z+<^. The equation takes the following 
after substituting Equation D2 through D7 into Equation 38 and dividing through by e . 

[ -Pe( ^ ) UeAeA+„ (eiCy^: - 1) cos (ach -02) ] + 

L- ' f. ^ 


CyE“ E 

PeUeA'e + peAe (e‘Cyt — 1) 


[( 


BaA+c 




RZ, 




COS O^ch 


CyE (R^ + C^) y 

] ~ w'd. 


— ) sin 


\ y, C (R^ + C^) yE 

ikVs f _ / k + UeBj + VeC \ jp 

= iPsV'3 - — L-H — 


1) 


P ds 


(D25) 


The following steps separate out and solve for the real and imaginary components of 
A and Z . First, make the assumptions noted in Equation D26 below. 


p, Pe Ue U2RElAe cos (oich ^2) I PeAe sin Oieh 

Ua7 r'' - — ' 


= 


C«, = 


Cioo 


Cioi — 


PfiCk " 1 “ VeC) U2REL Ae cos (cKch ^2) PeAr cos Qch 


CyEa' 


yE 


Pe^e 


R 


(R^ + C^yB 

UrV 3 Pe 


sinoch ^ 7 =r cos ach 


2CyEa*E 

(k + VeC)V 3 Pi 

2CyEa\ 


(D26) 
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■ Ill III 


Substituting Equation D 26 into Equation D 25 and rearranging term yields 
C102A + 00R + CjosA + tjoi + CimZ+ooR + C105Z+00I ~ CR 

where, 

CiQ2 Cg7B2Rl^^ioo C97B21 sin (Cye) “hCgg^^ioo 

+ kC,oo (BaiMioo + Bjr sin (Cye)) + kC,o, sin (Cye) 

C.03 = -C97 (ByMioo + Bjr sin (Cyg)) “ C^s sin (CPe) 
kC,oo(B2RMioo - B2, sin (Cye)) + kCio,M,oo 

Ci04 C99M100 

C,o5 = -C99 sin (CyE) 

and 

CR = — PeA'erUe + w'd,R + PakV'a, + '/2 kV'ap'a,, 

Substituting Equation D22 and D23 into Equation D27 and combining the terms gives 

C,oeZ,„R + C, 07 Z,„. + C.os RC + C.09 ic = CR 

where, 

C|06 C]02 Miio “I” CjogMin "H C]04 

Ci07 C102M1II CiogMiis + Cjos 

C108 “ C)02i^ll3 “I” C1Q3M116 

C,o9 C102M112 Cjo3M,|7 

Next, the imaginary part of the continuity equation is dealt with. Let, 

C„o = C97 [ B2 ,M,oo + Bjr sin (Cye)] + Cgg sin Cye) “ 
kCioo [B2 rM,oo B21 sin (CyE)] k C,oiM]oo 
Cn, = C,7 [BjrM.oo - B2, sin (Cve)] + CggMioo + 

kC,oo [B2 ,M,oo + Bjr sin (Cye)] + k Cjo, sin (Cyg) 

C„2 = Cgg sin (Cye) 

Cii3 CgglVIitJo 


(D27) 

(D28) 

(D29) 

(D30) 

(D31) 

(D32) 
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This yields 


where, 


CnpA+^R + C,,iA+„, + CiijZ+osR + CiisZ+tpi Cl 


Cl — 7 ^eU2REL cos (o!ch ^ 2 ) A’ei “h 


■pjkV 3R 2 kVgP 


(D33) 


(D34) 


Next, substitute the relationships for A+„ presented in Equations D22 and D23 into D33. Let, 

C]|4 = C,ioM,io + CiiiMiu “i“ C[i2 

C,,5 = C.ioMm + C,,,M„5 + C„3 

C110 Ciio^^iig “h C]nA4il0 

c.„ = C„oM „2 + Cc„.M„, (D35) 

This produces 

C„.Z,^ + C„,Z.., + C„. RC + C,„ IC - Cl (D36) 

Now, multiply Equation D30 by Cns/Cm^ and subtract the resultant from Equation D30. 

Let, 


C 118 C]|4 CnsC|00/C,o7 

C|ig = (C 110 CiigCioa/Ciovl/Ciig 

C|2o ~ (C,,7 “ C,|sC,o9/C|o7)/C,|a 

C,2, = (Cl - C„0 CR/C,n,)/C„8 


This gives 

= C..0 RC + C .20 IC + C.2, 

Substituting Equation D38 into Equation D36 and solving for Z+^j gives 

Z.^, = C,22 RC + C.23 IC + C.24 


(D37) 


(D38) 


(D39) 


where. 


C]22 ( C,,0 C,i4Cii9)/Ci,5 

Ci23 " (~ C,,7 C,i4C,2o)/C,,5 

C.24 = (Cl - C.2,C..4)/C„0 (D40) 

The relationships given for Z+„ in Equations D38 and D39 are then substituted into Equations 
D22 and D23 to yield A+„. This, then, produces a complete description of the flowfield for 
Region 3. 
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APPENDIX E 

STEADY-STATE FLOW COEFFICIENTS FOR REGIONS 1, 2, AND 3 


REGION 1 
Energy 

E 




7(7 — 1) 


+ 


cos'' 




_ (7^ - 7 + 2) 

27(7 - 1) 

p, ^ — E.IAjUi , E,Aj sin _ 2AjIU i , AiF sin g,i, 

^ Cvi 27Cyi Cyi 


pr — — EJAi (k + v,C) , El A cos a^y, 

Cyjai Yi 


2A,I (k + v,C) Af 

27Cy, 


E, = 


-a.'ViUj ^ PiSiViUj 

27 (7 — 1) Cy^a" 7 (7 — 1) 

p;U,V, sin Of,,, 

2Cy, 


( 2a.Cy! ) 


U.’V.U; 


E« 


-ay, (k + v^C) 




Ui^V, (k + VjC) , /[>,U,Vi cos g, 

4Cysa,' 2yj 


E- = cos (Cyi) — 1 

Eg = Eg (E3 ir “ B„ sin (Cyj)) + E^E, + Ejk (BuE^ + 
B,r sin (C5^)) + Egk sin (CS^) 

Eg = -Eg (BiiE^ + B,r sin (Cyi)) - E, sin (Cyi) + 

Egk (B.rE, - B„ sin (Cy,)) + EgkE, 

E,o = Eg [B„E, + B,r sin (CS^)] + E, sin (Cy,) - 
Egk [BirEv - B„ sin (Cy;)] - EgkE, 

E„ = Eg [BjrE, - B„ sin (Cy;)] + E4E, + 

Egk [B.jE, + B,r sin {Cyi)] + Egk sin (Cyi) 


cos CT,h 
Yi 
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E,n = 


E.„ = - 


p*a*E^ 

EsE ,5 

P*a*E, 

EioEis 


E,„ = 


E:.:. = 


E. = - 


3p*E, ^ E 


EeE,5 ' E,oE.s 

3p*E, _ E., 

EioE|s EgEift 

E,3 

E«E,, 


E:. 


E,. 

EioE|j 


Momentum 

M. = 
= 

M, = 


U|A; UiAJ^ , 2AJ 

Cy^ ^ Cy, 

(k + yC) A, _ (k + yC) A,F , 2AJ 

Cyi Cy;a," y, 

U,V| _ p,v, sin 

2Cyja," 2Cyj 


(^) (-=f ) 

M, = -R - r 

Mfi = p* + ~p*a*' 


M-; = M| [B,rE- — B,| sin (Cy;)] + MjE^ — 

M;, [kB.iE^ — kBi„ sin (Cyi)] — M 2 k sin (Cy;) 

Mg = — M, [BjiE, + B,r sin (Cy;)] — Mj sin (Cyj) + 
kM^ [ — B,rE- + B,| sin (Cy;)] — kM^E, 

Mg = M, [B„E- + B,r sin (Cyi)] + Mg sin (Cy;) + 
kM, [B.rE, - B„ sin (Cy,)] + M,E,k 
M,o = M, IB.rE, - B„ sin (Cy,)] + MgE, - 

kMg [B||E- + B,r sin (Cyi)] — kM^ sin (Cy;) 

M„ = E„M, + EgeMg - 2a*' 


cos 
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M,g = 

E.gM, + 

E,gMg + 

- 

kU.V, 

2 

M ,3 = 

-E,gM 7 

EjgMg 

+ 

Ms 

M ,4 = 

-EnM, 

- E„Mg 



M.S = 

-E20M7 

- EgoMg 

+ 

Me 

M,g = 

— EjiM, 

- EsjMg 



M .7 = 

— E22M7 

- Eg^Mg 

+ 

2p*a* 

M,g = 

EjgM, — 

EssMa - 

- 

kp,V. 

2 

M,g = 

-E„M7 

— E34M3 

- 

kp,U, 

M,, = 

-E2SM7 

- EnsMg 




kT] V 

M,, = E^M, + E,,M.o 

M,, = E,gM, + E,,M,o - 2a*“ 

M,,;i = "'EigMg — EjgMio + Ms 

= — E|7Mg — Ei^M.o + Mfi 

M,s = -E,gMg - EggMjo 

M,,g = -E„Mg - Eg,M,o 

M ,7 = -E,,Mg - Eg^M.o + 


M.,s = -E,sMg - EssM.g + 2)5*5* 

Mjg = -E,4Mg - Eg^MiO 

Mgg EjsMg EssM],) "!■ kp,Ui 


Ms. = 

M„ - ^ 

MI2M2I 


Ms2 ” 

(m„ - 

M12M23 \ 

M22 j 

^ M 


(m„ - 

M12M24 \ 

M22 ; 

M 

M34 = 

(m„ - 

M12M25 \ 

M22 ) 

^ M 


31 


z\ 


31 
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= 

( M„ - 

M ,3 J 

- Mg. 

= 

( M„ - 

M12M27 \ 

M2. ) 

- Mg. 

M37 = 

(m„ - 

Mi.M.ji \ 

M22 ) 

- Mg, 

M^g 

(m„ - 

M12M29 \ 

M22 ) 

- Mg, 

M^g 

( M,. - 

M12M3Q \ 

M .2 ) 

- Mg, 


_ _^13 M3;M|| 

tT* 

M = — ~ ^n.iM|, 

M„ 

M = M,5 — Ma^M,, 

M, 


M = _M,g M^sM,! 

M,. 


M„ 


M, 


M„ - 

M,, 


M = M,8 M..,hMi 

m;^ 


IVT = M.,q M^^Mii 

" M... 


Continuity 


n — A, . , uAI 

C, ^ sin ^ 


C. = 
C:, = 
C. = 


- -^cos„,. + ) A, I 

QjV. 

2Cy,a,^ 

v> 

\ 2Cyia, / 
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Cs = CiB.rE, — C,B„ sin (Cyj) + C2E7 + 

CakBiiEj + CjkBjR sin (Cy,) + C^k sin (Cyj) 

Cg = CjBiiE, — CiBiR sin (Cy;) ~ C2 sin (Cy;) + 

CgkBiRET — CakBii sin (Cy;) + C4kE7 
C7 — CaEjg + CgEae I 

Cg = CgEiT + CgEjT 

Cg = CgE.g + CgEaa + a* 

C,o = C5E19 + CgEag kV ,/2 

C,, = CjEag + CgEgg + p*a* 

C12 “ C5E21 + CgEj, 

C,a = C 5 E 22 + CgEji + p* 

C,4 = CgEja + CgEaa 

C,5 = C5E24 + CgEg^ kp, 

C]6 = C5E2B + CgEgs 

C,7 = CgMjj + C,gM 4 o + C7 

C,8 = C9M33 + CigM^i + Cg 

C,9 = C9M34 + C,oM« + C„ 

C 20 = C 9 M 3 S + C,oM 43 + C ,2 

C21 (CgMge + C10M44 + C13) 

C22 = “ (C9M3, + C,oM45 + C14) 

C23 = CgMag + C,oM 46 + C,5 

€24 = CgMag + C,gM47 + C,g 

Cas = C, [B„E 7 + B,r sin (Cy,)] + C2 sin (Cy) - kCg [B.REy - 
B,i sin (Cy)] — kC4E, 

C26 = C, [BirE, —Bn sin (Cy)] + C2E7 + kCg [BnE7 + 

B,r sin (Cy)] + kC4 sin (Cy) 

C27 = CacEae + CjsE.g 

C28 “ C26E27 + CjsEja I 
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Gag — CafiEoo + C,sE,o + 


kV, 


C,o = 
Cg. == 
C32 “ 
C 3 , = 

C34 = 

^35 = 

Cge = 
C3, = 

G38 ~ 

C39 ~ 
C40 ~ 

C. = 

C42 = 

C43 = 

C44 = 

C4. = 

C 46 ~ 

^47 = 

C4H ~ 


CagE^g + CjsEig + a* 

GasEgo + GasEjo 

GasEai + G25E21 + p*a* 

Gae^aa ~t“ GagEga 
G26E33 + G25E23 + p * 
G26E34 + G25E24 
GasEgs + G25E25 + kp, 


GagMga ”1" G 3 oN ^40 “1“ Gg 


G29M33 “I” G313M41 "H G28 

G29M34 + G 3 oM 42 + G3, 

G29IVI35 “1“ G3QM43 + C32 

— (GagMas + G30M44 + G33) 

— (G29M37 + G30M45 + G34) 

GagMgg "I" G30M4B “ 1 “ G35 

GagMgg G30M47 “t“ C36 


GaiG 42 

41 

\^<y> 


G 4 S 

1 


( 


G41 

1 


Gaa 

G 


GnG 4 


) 


/ p G]gG 4 a ^ 

[ Gaa ) 


G41 

1 


G .40 = 


G41 

1 


(c„ - 
(c.. - 


c, 

G19G42 

Gaa 

r c 

^ 20^42 


G 43 

1 


( p Ga 3 G 4 a \ 

Gaa ) 


( 


G 51 

Gsa ~ (G37 G41G46) ~ G42 


Ga 

CoaC. 


) 
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Cs3 (C 38 C<iC47) • 

= (C 33 - c,.c'8) - C« 

Css “ (C40 C^iC^g) ~ C42 

Cs6 “ (C43 C 4 ,Cso) “ C42 

Cs7 = (C44 C4,Csi) ~ C42 

REGION 2 


Momentum 


M4S 


( 8 us C us) 

kUaVa 

2 


Msq Pus “f" PusC us 

Msoa = p* + P*a*^ 

M ■ 

lyr = jVf + 

Ms. M« + 


M,a = 


M 

M 


50 


51 


Mss = 


M4SM5Q 

M48M,, 


Ms 


-2 

Ms. 


Mss = 
Mss = 


-2M,s 

M4gM5i 


Ms 


Ms. 


Ms7 = 
Mss = 
Mss = 


M4sMso;S 

M49MS1 


r 2w„ + 

1 

L 

_l 

1 / 2 w„sM 4 r 

kpaVj N 

Ms. V M4S 

2 J 


H- M 


51 
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= 

M„ = 

Mg, “ 
Mg3 = 
Mg, = 
Mg, = 
Mgg = 


1 

/ a*2p*M4« 

Mg. 

\ M40 

1 

Mg. 

f-2p*a*+ 

\ 2 M 49 

1 


Mg, 

V 2 ) 

1 / 

' kU,V,M4« \ 

Mg, \ 

2 M 49 ) 

-k(/rU) 

2 

Mg. 


k(pU)2 ^ 

M49 \ 

M4oMg. I 

M.g„ - 

M49Mg2 


M,g 


Mg, = ~ 


M49M,3 

M,, 


Mgg = 


-2 - MA 

M^g 


Mgg = 


M^gMgg 

M 43 


M -,0 = (M50A - M 49 Mg 6 )/M 4 g 

M71 M49Mg7/M4g 

M 7 , = ( 2 wus - M4gMJ/M48 

M73 = (— '/2 kpaVj ~ M 49 Mg 9 )/M 48 

M74 = (-'/ikjSiVg - M49MJ/M48 

M 7 , = (-2^3* - M49Mg.)/M48 

M7g = (~>/2kU,V; - M49Mg2)/M48 

M77 MggMgj/Mgg 

M 78 = (-k(pU )3 - MggMgg/M,, 

M 79 = ~M 4 »Mg(/M 4 g 

~ If 

Mao Aus^s UusAgM72 2 ^ Mgj 

Ma. = ULs'SsM,, - 
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]VIg2 

UusAsMgfi — PugVtjs 

+ 

M 

- 

~UL,sAsMg7 + 



Mg, - 

~'UusAgM7, + a* + 

kV, 

2 

M,3 


Mg. = 

UygAgM 

76 + 

kV, 

2 

Mgj 

Mgg - 

= “U„gAgM, 

» + 

kV, 

2 

Mg, 

Mg7 = 

UiigAgMes + 

kVy 

2 

Mg. 

Mgg = 

^ -U..sAgM,g 

, + 

P*a* 

+ — M, 

Mgs — 

-UugAgM^, 

+ 

kV.. 

2 

M„ 

Mg^i ~ 

~ UiigAgM,., 

+ ■ 

kV„ 

2 

M^BO 

Ms, - 

^usAglVl^. 

+ I 

0* + 

a;, 

Mg, 

M, - 

~ UygAgM7g 

+ 

kv; 

2 

Mg, + k*9, 

Mgj ~ 

- Ui,sAgM,9 

+ 

kV, 

2 

Me. 


Continuity 


Cs8 PusAg + UusAsM,„ + JlYa 


M, 


Cs9 — UusAgM^a + JVI,, 


Cr, — ■~UygAsM« — 




c„. = 


PusUys Ui;gAsM„ ~ Mg 


Cs= Ut^gAgMga - (1 + 


~ ■" "^usAsMsj ~ 


-S- \f 
2 ■‘^'^76 
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c« = -UusAusMe, - M« 

Css - p" - UusAsMeo M,, 

Cee = - tJusAsM^ - Me, 

Ce, - - U^^A^Mee - ^ M,, 

Ces = - OLsAsMee - M« 

— — kV 

Ce, - - UusAsMe, - ^ M„ 

_ vv 

C,o = - UuAMee - (2?, + M,,) 

— — kV 

c„ - - UusAsMe, - M,e 


C,, 


Mg. 


C 


T.l 


c.. = 


c,g - 


C.e = 


C;, = 


C.g = 


Ct 


9 


Cgo 


c«, = 


Cg-, = 




1 

C.. 




{ 

( 

( 

( 

( 

( 

( 

( 

{ 

( 


Ceu 


c 


61 


c 


62 


c 


6:t 


C«. 

Cgg 

Cfis 

Cs. 


CggMg, \ 

Mg. ) 

CggM,, \ 

Mg, I 

CggMgj \ 

Mg, j 

CggMgg \ 

Mg. ) 

CggMg, \ 

Mg, ; 

CsgMg.. \ 

Mg. } 

CggMgg \ 

Mg, } 

CggMg, \ 

Mg. I 

CggMgg \ 

Mg. ) 

^saMgs \ 

Mg. I 
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Cm 

1 

^ C70 

Css Mgs 

C,2 

Ms. 

Cs. = 

1 

( C7. - 

C5SM92 

C72 

Ms. 

Css “ 

1 

C.SS 

(Ceo - 

C59C73) 

C(jfi “ 

1 

Css 

(C«, ~ 

CsgC 7 .) 

Cs, = 

1 

Css 

(Cs2 - 

CsgC 7 s) 

Chs = 

1 

Css 

{Cs 3 - 

CsgC 7 s) 

Css = 

1 

Css 

(Cs, - 

CS9C77) 

Csn = 

1 

C.SS 

(Css - 

CsgC 7 s) 

Cs, = 

1 

Css 

(Cfis ~ 

CsgCvg) 

Cs. = 

1 

Css 

(Cs 7 - 

CsgCgo) 

Css = 

1 

Css 

(Css - 

CsgCg.) 

Cgj = 

1 

Css 

(Css - 

CsgC 82 ) 

Css = 

1 

Css 

(C 70 - 

CsgCgg) 

Cse = 

1 

c 

(C7. - 

CsgCg^) 


REGION 3 
Momentum 

iVf = »fAe _ Wr sin 
Cy, cy, 

[U,rel cos (nr,h “ ] ~ 

r ^ j (sin or,jl cos («,h - 02 ) 
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I k + VpC j j. 

Wp cos 

Pe 

\ Cyp ) 

= 7b 

[ UoRpL 

cos (or,h - 

/ k + VpC \ 
1 CSTpSTp" ) 

PeCjrpl^E cos Ojh COS (Och 

~ fS.) 


upU:,V 3 p.y 

sin 

Pe 

2 Cyp 3 p 

2Cyp 


(k + v.C) U.V3 

P3V3 cos 

Pe 

2Cypap' 

2ye 




[ 


Wk. Sin cu 


RWr 


R COS g,h "I 

(R^ + C'^) 7 e C (R^ + C^) y, J 

] [ 


PpUgRKj.^E COS (o',-), 

(R^ + C^) yp. 


sin a^h 


+ 


R cos a,h 

c 


IVI = ( sin cv — R_ cos «^h \ 

2 (R^ + C^) yp \ C ) 

Mioo = cos (Cyp) — 1 

M.o, = Mg, (M,ooB,r - B„ sin (Cyp)) + Mg^Mioo “ 
kM«(Bg,M,«, + Bg„ sin (Cyp)) - kMg, sin (Cyp) 

M,o 2 = Mg, {M,ooB„ + Bgp sin (Cyp)) - Mgg sin (Cyp) - 
kMge (MioqBjr ~ B21 sin (Cyp)) kMg 7 Mioo 
M,o3 = — kMgg sin (Cyp) + MggM,oo 
M .04 = -kMggMioo - Mga sitt (Cyp) 

M,o5 Mg, [BjiM.gg + Bjr sin (Cyp)] + M95 sin (Cyp) + 
kMgg [BjrMiqo B 21 sin (Cy^) “t~ kMg7Mjoo 
M,o 6 = Mg, [B2rM,oo - B 2 , sin (Cyp)] + MgsM.go - 
kMgg [B2,M,oo + Bjk sin (Cyp)] — kMg, sin (Cyp) 
M|07 ~ Mgg sin (C^p) ~H klS^ggMigg 
M,og = MggMioo - kMgg sw (Cyp) 

M]og Mjos Mio,M]Qg/M,Q 2 

M,,g (Mjo 7 Mio3M,Qg/M,Q2)/Mio9 ' 

(^^jQg ^^jg,^4]gg/R^jQ2)/^^109 

M ,|2 1/Miog 
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^iin 

-M, 

106/^^102^^109 

M..4 = 

(M,o7 

- M,ogM„o)/M, 

M..S = 

(Miog 

M|05M|Qg)/M] 

M.,g = 

M]05 

^iij/AIioe 

M,,7 

(1 - 

^105^112)/M,06 


Continuity 

p — ^pUf.U o hri.Ap; cos /^g) _(_ PeAe sin 

CyElE^ ^ Cve 

p = PF.(k ~l~ VrC) UanF.rAR COS (n'ch i PsAg COS tY^i, 

^98 2 ‘ — 

CYe^e Ye 

„ ^pAp / . R \ 

~ (R^ + C-) Ye ( ~ C / 

p _ 

2Cy^^ 

P _ (k + VrC) VjPe 
2Cy,aE-^ 

Cjoj ~ C47B2RM100 C97B21 sin (Cye) "f" CggMioo + 

kC,„o (B21M100 + Bjr sin (Cye)) + kC,o, sin (Cyg) 

C,o;, = -Cg, (B2 ,M,oo + B2R sin (Cye)) - Cgg sin (Cye) + 
kC.oo (BjrM.oo — Bj, sin (Cye)) + kC,o,M,oo 


C ]04 C99M100 

C|05 Cgg sin (CYe) 


C106 

= C; 

102^110 

+ 

Cio3M,i4 

+ 

C|04 



C.02 

= C 

102^111 

+ 

C 103^,15 

+ 

Cloa 



C108 

= C 

102^113 

+ 

CiogMjie 





0 

1 

= c 

102^112 

+ 

Cjo3M]|7 





Cjio 

C97 [BgjMioC 

, + 

Bzr 

sin 

(Cye)] 

+ 

Cgg sin (Cy, 


kC,«, 

[B2RM100 

- 

Bj, sin 

(Cye)] 

— 

kCioiMjQQ 


Cjii C97 [BgalV^ioo Bgi sin (CyE)] ~k CggA^mo ~i~ 

^^100 [®2i^^ioo ®2R sin (Cye)] “k kCioi sin (Cyp) 
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c. 

C, 

c. 

c, 

C, 

c„ 

C„ 

C„ 

C. 

Cu 

c., 

c,., 


C99 sin (Cyj.) 

C99M100 

CtioMiio CniMii^ + C|j2 

^110^111 + C],3 

C||oM|i 3 + C]ilM|,g 
C||oMii2 ^ 111^^117 

Cii4 C113C105/C107 

C,|..iC|08/C,o7)/Cng 

~ (C ,,7 ~ Ci,,;C| 09 /C, 07 )/C|i 8 

(Cl - C,,,CR/C, 87 )/C „8 

(~C,|g — C|i^C|, 9 )/C |,8 

(-C„7 - c,„c,o)/c.,, 

(Cl - C,,..C,J/C„8 


S Coefficients 


S, = 


TT 


7+1 


s„ 


= -7 

7 + 1 


- p,, - 


( 7 _^ 1 J - 
7 + 1 P'" 


S, = 


- ^ 


7 + 1 


- U. 


(T - 1 ) - 
7 + 1 “ 




= -^7 

7 + 1 


a..sP>. 


S-, = (7 - 1 ) M„; + 2 


^li — (2 — 27) + (27 + 2) 

S 7 = (7 + 1) M„; 

= Sg/(a„.S,) 

S,, = S 7 /S, 
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Miscellaneous 


RC = — p'dJlAs — Pd.A'sE + [pE + Pe (Uzre cos (ttch ' 

- 0 ,. - kftU.V'., 

with 

w'd,R = (P d.RUd.As + Pd*U (UrAs "h Pd»Ud,A sr) 

IC = Pd.|As Pd.A SI “i" {Pe Pe (U2REL cos (ofjj, 
U'd.,Wd. - Ud.w'd .1 + ^ kp3U3V'3s 

with 

dsi (p d.iUj.As + Pd.U diiAs "i" Pd.UdjA si) 

CR = — PrA'erUe + w'd.H + PskV',, + '/zkV'ap'd,! 

UI PeU2rel cos (cv^h P2) A El 4 * w d.i PskV 3R 


P2)) ] A'er 

- kp;u'd.iV;i 
2 


1 A' SI - 

_)_ kp^TJ d,RV3 
2 


'/2kVap'd.R 



APPENDIX F 

CALCULATION OF MEAN FLOW AERODYNAMICS 


Pressure jump across the shock (steady state) 

= 1 + (M;. - 1) 

Pub 7 + 1 

Steady-state pressure as a function of chordwise location 

p(x) = Ptot [ 1 + 2 ^ 

Steady-state density as a function of chordwise location 


\ ^-1 ! 


p(x) = 


Ptot 


[. 


- 1 


m] 


_ 




(Fl) 


(F2) 


(F3) 


where, 


_ ^ tot 

Ptot “ pm 

rv 1 -rnT 


Steady-state temperature as a function of chordwise position 
T(x) = Ttot 


1 + — 2 ^ 


Local steady-state speed of sound as a function of chordwise position. 

tRTtot 


a(x) - 


LI +^^ 7 ^ (mx)) 




Total pressure, temperature, and density downstream of the shock 

(--V) 


Ptotj, Ptot,,, 


27 7" 

1 + rV (M^« - 1) _ 


7 + 1 


(7+1) 

(7 - 1) Mj + 2 


(^) 

^ 7-1 ' 


TtoT^. “ TtoT,, 


(F4) 


(F5) 


(F6) 
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Mach number across the shock 


1 ^, 


Mg^(7 - 1) + 2 
2tM3« - (7 - 1) 


(F7) 
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APPENDIX G 


DEFINITION OF AREA PERTURBATIONS 


Bending Mode Perturbations 

Figure Gl describes the inlet area to be considered. The blades will be considered to 
vibrate harmonically with a constant interblade phase lag a. Assuming this, then the de- 
flections can be represented as follows: 

h = h e''“ (reference blade) 

h' = h e''“ e'° (blade adjacent to reference blade) 




FD 176255 

Fif^ure Gl. Bending Mode Area Perturbations 



Thus, the area perturbation can be represented as shown below: 


A'i 


(h'-h) 


sin /?! 
sin a,h 


= (h^*" e^“ - h e^"^) 


sin d) 
sin 


where all quantities are nondimensional. Simplifying this expression yields 


A'i = h e^"^ (e'° - 1) 


sin j3i 
sin 


Dividing through be e'‘‘‘ gives 


A'i = h (e’" — 1) 


sin 0, 
sin 


Separating the expression into its real and imaginary components produces 


A' 


tR 


h (cos CT 


sin /3, 
sin 


A' 




h sin (7 


/ sin /?, V 

( sin ) 


(Gl) 

(G2) 

(G3) 

(G4) 

(G5) 


1(X) 



Similarly, the other area perturbations for the bending mode will be 


A'*r = h (cos a — \) 
A'*, = h sin <T 
A'sr = h (cos u — 1) 
A'si = h sin a 


A'er = h (cos (T — 1) 


sin 

sin 


A'e, = h sin a 


/ sin 132 \ 

^ sin ) 


Torsional Mode Area Perturbations 



(G6) 

(G7) 

(G8) 

(G9) 

(GIO) 

(Gil) 


Figure G2. Torsional Mode Area Perturbation 


In the torsional mode area perturbations, the airfoils will be assumed to be undergoing 
rigid body torsional deflections about an arbitrary elastic axis position a. Consider first a 
cascade of flat plate airfoils oscillating out of phase, as shown in Figure G2. The area 
perturbation can be represented by 


A'(x) 




(G12) 


where, 


2 = Ml + a) 
c 

a = Elastic axis position referenced to midchord and nondimensionalized by b. 
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At the blade leading edge 


A'; = Zc («' - a) ( 

\ sin J 


Next, assume 

— _ikl 

(V — (V e 

- _ — „ikl 

fv — (V e e 

'rhus. 

a' “ (» = (V e'*" (e 1) 

Dividing this by e"" and substituting the resultant into Equation Gl3 gives 


A', = cZtTie'" — 1) 


( sin 13, \ 

\ sin cv,, / 


Separating this expression into its real and imaginary components yields 

A'in = cZalcos a — 1) ( — ) 

\ S'n «ch / 

A'ii = cZo sin (T ( ) 

V sm o,h / 

Similarly, the other area perturbations will be 
A'*r = ^ Z — ^ ^ CO (cos o- — 1) 



At the shock wave, the area perturbations will be 


A' 


SR 


A' 


SI 




CO (cos <T — 1) 


CO sin a 


(G13) 

(G14) 


(G15) 

(G16) 

(G17) 

(G18) 

(G19) 

(G20) 
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At the exit, the area perturbations will be 


A'eb = (Z - 1) (cos a - 1) ca ( 

A'e, = (Z - 1) ca sin £7 ( ) 

V sin «,h / 


(G21) 


DEFINITION OF THE VOLUME PERTURBATIONS 
Bending Mode Perturbations 

Figure (13 defines and divides the volumes into three sections. Each section is dealt with 
separately in this Appendix. 



Fiiiurc (Fi. Bending Mode and Torsional Mode Volume Perturbations 

Section 1 

For ease of determination, Section 1 is divided into three subsections, such that 

V, - V,. + V,. + V„ (G22) 

Subsection la 

V = ^ 

2 cotan (90 — ^i) 

Expanding this expression in small perturbations and neglecting higher order terms gives 

V = . ( A'', + 2 A, A 'i) (G23) 

*“ 2 cotan (90 — d,) 
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which produces for the perturbation volume in terms of real and imaginary components 

y/ Aj A'jn 

cotan (90 — iS,) 

and 

V- A A'„ (G24) 

cotan (90 — /3,) 

where A'^ and A',, are given in Equations A4 and A5, respectively, in Appendix A. 

Subsection lb 

V,h = (5 cos o,h) sin 

where <5 represents the gap between the blades. Expanding this expression in small per- 
turbations gives 

V,b = ~ + 2 58') sin cos 


V,. = 5 


)si 

y sin J 


sm of,h cos 


Breaking this expression down into its real and imaginary components gives 

V'lhR = (cos (7 — 1) cos a^i, (G25) 

V'lbi ^ 5h sin a cos (G26) 

Subsection 1c 


V„ = A* (x* — 8 cos tteh) 

Expanding this expression in small perturbations and neglecting higher order terms produces 
V'.e = (A* - A'*) X* - (^ A* + 6 A'* + 8' A*) cos 
or 

V'„ = A'* (x* — T cos a,h) + ^'A* cos «ch (G27) 


V'„R = h (x* — 5 cos n^h) (cos <r — 1) + A* h (cos cr — 1) cot 

V'lt, = h (x* — 8 sin a^h) sin o- + A* h sin a cot a^h (G28) 
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Thus, the real and imaginary components for Section 1 represent a summation of the 
three subsections, as shown in Equation G29. 


V'.„ = V',.„ + V',.„ + V'. 


V'„ = V'.„ + V'.„ + V', 


(G29) 


Section 2 

Since this section represents supersonic flow, downstream disturbances cannot propagate 
upstream. Therefore, the volume perturbation can be represented as being bounded on the 
downstream side by a steady-state shock location, as shown in Equation G30. 


V, = + As) (X3 - X*) (G30) 

Expanding in small perturbations produces 

V', = -|-(A'* + A's) (xs - X*) (G31) 

Breaking the expression into its real and imaginary components gives 
V'zR = h (cos a — 1) (xs ~ X*) 

V' 2 , = h sin O' (xg “ X*) (G32) 

Section 3 

Section 3 also has been divided into three subsections. Each subsection is dealt with 
separately with the volume perturbations of Section 3 equal to the summation of the 
subsections. 

Subsection 3s 


= -^(As + A , . .) (c - xg) 

V'3. = \[ (A's + A' .) (c - Xs) - (As + A^ „ ,) x's] 

V' 3 .R =li (cos CT - l)(c - is) x'sR (As + A ^ = ,) (G33) 

V' 3 ., ^ h sin (c — is) -^x's, (Ag + A^ _ ,) (G34) 
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Subsection 3b 


Vsb = “I' sin a,h) 

V'ab = 55' cos a,h sin a,b 

V'abR = ^ h (cos o — 1)(5 sin 2a,h) 

V'sbi = h sin a (5 sin 2a<,h) 


(G35) 

(G36) 


Subsection 3c 


V, 


2 tan 13^ 


Ae A' 

tan 


V' 


3cR 


Ae h (cos CT — 1) cos ^2 
sin n,h 


(G37) 


V'.,„ = 


Ag h sin a cos 
sin 


(G38) 


As stated, the real and imaginary components of Section 3 represent a summation of the three 
subsections, as shown below: 


V':,K = V',3r + + V',,R 

V',, = V',3, + + V',,, 


(G39) 


Torsional Mode Perturbations 

As before, the individual sections will be dealt with separately in the following para- 
graphs. 

Section 1 

Section 1 is again divided into three subsections for ease of determination. 
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Subsection la 


V' 


la 


A, A', 

cotan (90 — (3,) 


Aj c Z g (cos p — 1) sin /3 i 
sin g^h cotan (90 — jS,) 


(G40) 


— , Aj c Z g sin g sin /g, 

sin g cotan (90 — /3,) 

Subsection 1b 

V',b = bb' sin (2 g.J 

V'lbR ~ cZg 6 (cos <r — 1) cos 0 ,.^ 


V'lbi ” cZg6 sin a cos g^h 


(G41) 


(G42) 

(G43) 


Section 1c 




/ X ^ 

V',. = 

j A'(x)dx 

A'(x)= c \Z ) 


a) 


= cZ (x* — b cos g^^) (g' — g) — 


c( — (6 cos g^b)'^ Ha' ~ a 

2 ^ 


V',^R = eg (cos cr — 1) Z (x* — 5 COS g^b) “ 


X*' — cos g^h)‘ 
2c 


sin a 


V,^i = eg sin a Z(x* — 5 cos g^b) “ 


x*^ — (6 cos g^b)^ 
2c 


(G44) 

(G45) 


The summation of the real and imaginary components of the subsections is shown in Equation 
G46. 


ViK — Vj'aH "f ^ibR T VjcR 

Vh = V;„1 + V'bi + Vl'cR 

(G46) 

Section 2 


Vj = A'(x)dx 


V'„ = c « (cos a - 1)[ Z (Xa - X*) - ( — ^-— )] 

(G47) 

Vj, - c g sin 0 - [ Z (Xs X*) ( ^ )] 

(G48) 
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Section 3 


As before, Section 3 will be divided into three subsections. 


Subsection 3a 


Vaa A'(x)dx - Aa X'a 

IS 

= c (a' — a) Z (Xe - xj - ( 2c ~ 

Vaan ^ c a (cos 0 - - 1) [ Z (c - Xs) - ( “ 

Va'a, = C a sin CT [ z (c - X;.) “ ( ^ ~)] “ 


A„x'sf 


Subsection 3b 


(G49) 

(G50) 


Vab = I (5^ + 2 6 5') sin act, cos «ch 
Vjb = 8 5' sin «ch cos act, 

where, 

^ c(Z - 1) ( g - g) 
sin gch 

VabH = C g (Z - 1) (cos (7-1) cos gch 
Vabi ” c a (Z - 1) sin (7 cos gch -o 

Subsection 3c 


(G51) 

(G52) 


V, 


A2 

2 tan jSz 


V' 

▼ !\C 


V' 

> *ir 


Ae a £ 
tan /?2 

Ae c 5 (Z - 1) (cos (7-1) cos 02 
Sin ttch 

Ae c a (Z - 1) sin (7 cos ^2 
sin gch 


(G53) 

(G54) 


The resulting summations for Section 3 are given in Equation G55. 


VaK 

= VaaR + 

VabR 

+ 

VacR 


Vai 

= Via, + 

Vib. 

+ 

Vic. 

(G55) 
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APPENDIX H 

CALCULATION OF THE STEADY-STATE SHOCK 
LOCATION AND TEST FOR CHOKED FLOW 


The first step in the analysis requires checking for choked flow. Equation Hi is obtained 
from the isentropic flow relationships. 



(HI) 


Rearranging this relationship and solving for gives 


Ac = 



( 


'y + 1 

7-1 



(H2) 


For a choked flow condition, A* will be equal to or greater than the minimum area between 
the blades (A„,,„). Thus, for choked flow Equation H2 becomes 



1 

to 

> M? 

-1- 


1 + 


7 - 1 


M* ) 


1 


(H3) 


During steady-state conditions 

A,, = (5 sin di (H4) 

and 


A„,i„ = {6 sin + Yl 

Substituting the relationships of 
yields 



1 


X 2 * - y„ Xi* 

Equations H4 and H5 into Equation H3 


L 7 -|- 1 






(H5) 

and solving for (5, 
} { 5 sin Och + 


yc(x* 2 ) - y„(x*,) 


(H6) 


Thus, the flow will be choked if the input 13, is equal to or greater than the (3, calculated in 
Equation H6. If the flow is choked, the areas at various cross-sections will be calculated along 
with the exit area, as shown. 

= 5 sin ^2 (H7) 


The next step in the analysis requires that the supersonic Mach numbers downstream of the 
throat be calculated by solving the following equation for M at the specific chordwise locations:. 



(H8) 
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Once the area relationships and Mach numbers as a function of x have been determined, 
the analysis proceeds with the calculation of the steady-state shock position. The derivation 
requires only the Mach numbers downstream of the throat since it can be shown that the 
shock position is stable only in a diverging channel. With the pressure ratio across the stage 
(PR) input, the capture Mach number fixes the pressure at the entrance, as shown in Equation 
H9. 


A. ( 

Pt ^ 


1 -f 


7-1 


M 


0 


f ^-1 ^ 


(H9) 


The pressure ratio from the throat to the exit can be defined as 

'JL 


PRc-orr = 


Pt 


/ 2 'j 7+1 

\ -J.+1 / 


PR 


(HIO) 


The use of an iteration procedure finds the shock location by first assuming the shock is 
located at the throat and then incrementally moving downstream until the obtainable pressure 
ratio (PR„b.) at the specific shock location matches the PRc«r within some tolerance e. PR^bt is 
calculated in the following manner: 

1. Calculate the ratio of pressure entering the shock to the pressure at the 
throat as 



(HID 


2. Calculate the pressure rise across the throat as 

= 1 (Ml - 1) (H12) 

I- U3 7 T i 

3. Calculate the Mach number exiting tbe shock to determine the nature of 
the flow (subsonic or supersonic) as 


1 -f- 

^ ^ 
7M^8 — 

where, 

Mu 8 — Mg 


(H13) 
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Knowing the nature of the flow, M„,t can be calculated from the area relationship in 
Equation H 8 . Knowing M„i„ the pressure ratio from the shock location to the exit can be 
calculated by 


exit 

Pds 


(‘ 




(_Z2_) 


1 Mh 


(HU) 


From this point, PR,,u can be defined from Equations Hll, H 12 , and H13 as 


pR.„= (^XtrX%) 


(H15) 


Equation H14 is valid for all values for M, less than or equal to 1.1. If M, > 1.1, there will 
be a loss in total pressure. Calculate total pressure in this situation in the following manner: 




-[ 


1 + 


2y 

7 + 1 


(M“ 




(7 - 1 ) Mg + 2 I ( ^ ) 
(7 + 1 ) M| 


(H16) 


Then, Equation H15 becomes 




(H17) 


The shock will be located at the point where 

(PR,o„ - PR„bJ< e (H18) 

If this relationship is not valid, move to the next discrete section downstream and repeat the 
calculations. If the shock position is not located in this manner before reaching the end of the 
channel, the shock location is downstream of the blades. 
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APPENDIX I 

LIFT AND MOMENT COEFFICIENT CALCULATION 


With pressure perturbations known at the inlet and outlet of each section, the mean 
section pressure perturbations can be defined as follows; 

Section 1 

p'lB = (p'iR + P*r') 2 p'„ = (p'.i 4- p*,') -s- 2 (I-l) 

Section 2 

P 2R ~ (p*R P USr) ~ 2 P 21 ” (P*l p usi) ~ 2 (I'2) 

Section 3 

p’sR ~ (p'djR P er) ~ 2 p'ai = (p'd,i 4~ p Ei) ~ 2 (I'3) 

Equations I-l through 1-3 give the unsteady pressure distribution on the reference airfoil 
suction surface. The pressure perturbation for the “channel” below the reference channel can 
be described in the following manner: 

Pl = Pu exp (~i ff) (1-4) 

where, L denotes the lower airfoil surface and U denotes the upper airfoil surface, 
or 


Plr + iPLi = (PuR + iPui) (cos a — isin a) 
which gives 


(1-5) 


Plr = Pur COS O' + Pu, sin a 

Pu = Pui COS a — PoR sin a ( 1 - 6 ) 


Then, the pressure perturbations for each section can be calculated as follows: 

Section 1 


P iRL P iRu COS 4 " p iiu sin a 
P iiL ~ P iiu COS <T p iRu sin (T 

Section 2 

p 2RL ~ P 2RU COS o 4* p 2HJ sin a 
p 21L ~ P 21U cos a p 2 bu sin a 

Section 3 

p'^RL = P'sRu COS a 4- p'aiu sin cr 
p 3IL ~ P 3IU COS <7 p 3RU sin o 


( 1 - 7 ) 


( 1 - 8 ) 


( 1 - 9 ) 
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ir 


With the unsteady pressures defined on the suction and pressure sides of the airfoil, the 
unsteady lift and moment coefficients can be defined as follows for each mode. The real part of 
the unsteady lift coefficient is 

C-LR CluR Cllr (I-IO) 


where, 


Clur = -(p'lUR X* + p'auR (x,-x*) + p'suH (C-X.)) ^ b (Ml) 

^LLR ~ (p ILR (x* ^ cos “h P 2LR (Xs X*) "1“ 

PVr (c — X, + 5 cos aj) -H b (1-12) 

The imaginary part of the unsteady lift coefficient is 

ClI ~ CluI + Clli (1-13) 

where, Clui and Clli are defined in the same manner as in Equations I-ll and 1-12 with the 
imaginary pressure perturbations used. The real part of the moment coefficient can be defined 
for each mode as 

Cmr = CmuR “t” CmlR (1-14) 


where, 


Cmiih 


P'.UR X* ^ Zc - ^ ) -I- P'^UR (x. + X*) ( Zc - ^ ) -H 


PW (c-xj(zc- b'^ 

Cmlr = + [p'lLR (x*-5 cos aj (zc cos «,h ^ 

P' 2 LR (x,~x*) (Zc — ^2 (x,-l-x* — 25 cos a,h)) 4- 
PsLR (c — x,-f5 cos a,h) (Zc— 1/2 (c + 

x,— 5 cos «ch)) J ^ 

The imaginary part of the moment coefficient for each mode is 

Cmi Cmiii Cmlf 


(1-15) 


(1-16) 


(1-17) 


where, Cmui and Cmli are defined as in Equations 1-15 and 1-16 with the imaginary pressure 
perturbations used. 
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AVERSION 1.3.0 (01 M,‘.Y 60) SYSTEtl/370 FORTI7AM H EXTENDED (ENHANCED) DATE 60. 553/15. 02. A7 PACE 1 

REQ'JEGTED CPTICIIG: EECOIC ,MAP,NOLTGT ,'!DD tCK .XREF ,OPr = C 

OPTICUS IN EFFECT: f 1/ME( MAIM ) CPTIMIIECE) LIMECOtJllT< 60 I SIZE(HAX) AUTODBK NONE ) 

SOUTCE EBCDIC MOLIST MODECK OBJECT MAP KOFOPMAT GCSTMT XREF S'OALC NOANCF TERM IBM.FLAG( I)_ 


ISN 0002 


is;)'bbo3 

IsirbccT^ 

isu coos 


ICM 0006 
lEU 0007 


C DATA SET 9066MAIH AT LEVEL 001 AS OF 07/30/30 

C DATA SET 906C:iM:l AT LEVEL 001 AS OF OA/21/30 

C _DCCK 9066— DEVISED VERPICM CF DEEM S303 _ ... 

C ' ML';-: 10 BE L’SED AS THE CHANNEL fLoW CH.OXE FLUTTER 

C UNSTEADY AERCDl HAMIC MODEL 

C 

C ANALYST JEFFREY F. SIMPSON 

C PATE JANUARY, 19C0 

C EXT ASIS 

C MAIL LOC R-47, BLDG 3L, PEG 

C _ _ _ 

C * AL^BAR - MEAN TORSIONAL DEFLECTION THRU (lYCLE (DEG.) 

C ALPCH “ STAGGER CF BLADE RO:i (DEG.) 

C « GETAl - INLET AIR ANGLE (DEG.) 

C_:t DETA2_- EXIT AIR ANGLE (DEG.) 

C «”"C ' -'ChP-'D (IN.) 

C * DELTA - G.AP LETNEEN BLADES (IN.) 

c E - nc; di:;E! Gzc::al elastic axis location rsf. to midspan 

C_* EPS TCLE!'.'NG£ f CR PRESSURE RATIO 

C - SRECIFTC HEAT RATIO 

C » I'.BAR - fc/') FLAFPIfiG' DEFLECTION CF BLADE THRU THE CYCLE (IN.) 

C Ml - INLET MACH MUME-ER 

C_> Ml - L.E. riACI-l IVJH'ER 

C - NL'RDSR OF AIKFOIl’ CCCRDINATES 

c > )(SECT - ):'j::i'er of segments for channel area, mack number, etc. 

c * NTiME - nu;;ler CF TINE i:;cre:'.ents 

C__» C:;SGA_- FPE-RUENCY OF VIERATICJ (RAO. / SEC.) 

'C « ■ PR - STATIC FRESSUI’E RATIO ACROSS ST.lSE 

C ^ PT - TOTAL PRSSSL’rE ENTERING STAGE (T'S'I) 

C » RCAS - G'.G CCNSTAJir (FT-LCr / DEG. R-LE-OICL) ) 

C _«_YCLMIT_- tolerance FCR MACH HJIT'EP ITERATION 

'c » 'TT - TOTAL TENPLPAlU.lt ENIEPING STAGE (DEG. R) 

C a XIK - ARRAY OF AIRFOIL X CCc'EDINATES (IN.) 

C « YLIH - ARRAY OF AIFFOIL Y l.C.'ER COORJINATES (IN.) 

C * Y UXN ARRAY_OF_ AiFFOILjr UPPER COORD INATES_J.IN ) 

"C 
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OOOOCOlO 
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00000030 
OOCOCOAO 
C00C0050 
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OOC0C070 
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COOOOICO 
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00000320 

00000350 

O0CC039O 

OOC00330 
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VOLl, 

VCL2, 

VOL3, Ac, 

AS TAR, 

E, 

0CCOP36O 

*> 

AC, 

AC, 

NO, MCE, 

MOI, 

TT, 

00000370 

7 

xs, 

XSTAR, 

PISS, P2SS, 

P3SS, 

C^ 

C3000330_ 


MI,’ 

' PT, 

CETAl,' betas'. 



’00000390' 

7 

ALPCH, 

PrillEB, 

FHII3T, KBAR, 

DELTA, 


OOOOOAOO 

7 

OilEGA, 

ALF3AR, 

V 



OOOOOAIO 







1 

O 

o 

o 

o 

o 

“real 

■LA1'3D^~' 

"luss, ■ 

Llss, mi. 

'mi; 

"HeT 

CCCC0930 

7 

f;o. 

MSS , 

MCE, MOI, 

MC, 

moss. 

00000690 

7 

LSS, 

MUSS , 

MLS3 



COOOOA50 







00000960 
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YLD:(S0), 


00000970' 

7 
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AVERSION 1.3.0 tOl MAY 60) MAIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

IS!I 0003 60 F0RMAT(20A«») 

ISN 0009 READ(5.85) MP,N3, IKAVE ,NSECT 

ie;j 0010 85 FCn!IAT(^tI5) . ... ... 

iSN 0011 READ(5,66) ALPCH ,5ETA1 ,PETA2 ,C .DELTA.E > EPS.GAM.MI ,M1 ,OMEGA , PR ,PT, 

? TT,V,DIAM,TOLMIT,ALP0AR,HBAR 


ISN 0032 


DATE 80.353/15.02.47 
00000360 
00000570 

.. . 0POO05S0 

00000590 
OCC00600 


PAGE 


ISN 

0012 

66 

FCRNAT(3F10.0 ) 

CGCCCalO 

ISN 

0013 


READ! 5,66) ( XIN( I ) ,1 = 1 ,NP ) 

0OOC0620 

ISM 

C014 


READ(5,66) 1 YLINl I ) ,1=1 ,KP) 

COCC0630 

ISN 

0015 


REA0(5,66) (YUIN(1),1=1,NP) 

O0C0O64O 

IGN 

0016 


IF (EPS .EQ. 0.) EPS = .05 

00000650 

ISN 

0013 


IF (GAM ,EQ. 0.) GAM . = 1.4 

00000660 

1S)( 

0020 


IF (1)1 ,EQ. 0. ) Ml = MI “ 

00000670 

ISN 

C022 


IF (KGAS .EQ. 0.) RGAS = 1716,26 

D0CC0630 

IS!J 

0024 


IF (TOLMIT .EQ. 0.) TOLMIT = .00001 

00000690 

ISN 

0026 


TAU = DELTA 

CO000700 

lEN 

0C27~ 


PHIIC3 = 6.2332 DIAM/N3 

00000710 

ISN 

0026 


IF(INAVE.LT.O) PHIIB3 = -1.0 * PHIIBB 

00000720 

ISN 

0030 


PHIIQT = PHII23 

00000730 



C 


00000740 



c 

PRit(T ii:put 

CCC00750 



c 


OOC00760 

ISN 

0031 


NRITE(6,5) TITLE, 

OC000770 


_? ALFC.'-R,ALPCH,BETA1,PETA2,C, DELTA, DIAM.EjEPS, GAM, HBAR. OOOOC7EO, 
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5 FORMAT( ‘1CH‘N:;HL FLC.J CHC:',E FLUTTER ANALYSIS DECK 9066'// 20A4// 000C0300 
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ERROR DETECTED 
ISN 0033 
ISN 0034 


ISN 0035 
ISN 0036 


2' 

ALFCH 

■ ,F10.3,5X 

3' 
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■ ,F10.3,5X; 

4' 

BETA2 

' ,F10.3,5X 

5' 

C 

• ,F10.S,5X 

6' 
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‘ ,F10.5,5X 

7' 
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' ,F10.3,5X; 

8' 

E 
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9' 
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X' 
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2' 

PR 
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3'' 

V 
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1' 
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2' 
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3' 
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4' 
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^VEPSICM 1.3.0 
CC37 
ISN C033 

ISS CC39 

IS!) CC-.0 
ISt! C041 


(Cl MAY 00) MAIN 5YSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

COR - 57.8057795100 
ALFDAR = AirCAR / OCR 

AlFCH = ALFOK / OCR 

PETAl = B5TA1 DOR 
EETAC = BETAS / DCR 


ISN CC'-iZ 
ISM 0C43 
ICM C044 

'is:j 0045 ’ 

ISM C046 

ISM 0047 
'iSN C043 
loM 0G49 

ISN COSO 
'iSM CCSl' 

ISM 0052 
ISN 0053 
'iGM 0054’ 
ISM CC55 
IS!( CQ55 
lSr( C057 
'ism 0053' 
ISM UC59 
ICM OCSO 
ISM 0051 
'ism C062 
ISM 0063 


.DEFINE QUAMTITIES USED ..FREqUENTLY_lN .CALCUUTIONS . 

PI = 3.1415926S35P9SD0 
CMEG = C.-SCA 

OMECA = OMF.CA ■*; 2. PI 

)!SECT1 = N3SCT + 1 ' ' 

MT1!;c 1 = NTIME + 1 
SEIilCHCRD 

B = .5 * C 

DIME = B » - E)” 

&1FE = B (I. + E) 

TOTAL 0SM3ITY 

SHOT = PT / CTT » RGAS_)t_12.J 

ZP = DIPE / C 
C/ECADE STACS-ER ANCLE 
LAr;EDA - .5 4 FI - ALPCH 

CG5LAM = COS(LAMSr;A) 

' SiMLAfi = Situ LAtiCLA) 

TSLAM = TAU « 5.IMLAM 
CSlf.G = e.'tt / (1.- CAM) 

CPlGril = ;gam + l.) / (GAM_-_1.J 

TNSSFl = 2. / (GAM +1.) 

COS-.CH = COSIALFCH) 

SIttACM = SltU.'LPCH) 

Slf'Dl = SIMrCETAl) 

Cc:B2 = CDS( EETA2 ) ’ 

SIt.:32 = SIt((BETA2) 

EMIT STEADY STATE AREA 

AS3E = TAU » SIN32 _ _ 

'X IIICREMEMT FCR CHANMEL AREA T MACH 'n’umb'eR » ETC. 
DXIP = (C - TSLAM) / FLOATtt.’SECT) 


CALCULATE STEADY STATE AREAS THRU CHANNEL t LOCATE THROAT 


ISN C066 
ISM 0067 


ISN 0072 
ISM 0073 
ISM 0079 
ISM 0075 


ASTAR = 1.E20 

DO 20 NS = 1, NSECTl 

X CCOROINATE OF REFERENCE 3LADE 

XlPlttS) = FLOAT(NS-l) * OXIP + TSLAM’ 

X CCCFDINATE OF BLADE ABOVE REFERENCE BLADE 
X2P = XIF(NS) - TSLAM 

Y CCCRDItJATE OF LTPER SURFACE OF REFERENCE BLADE 

'call line (NP, XIN, YUIN, X1PIN3)» YU, DUM, IDUM) 

Y CCCvOItiATE OF LC.IER SURFACE Or UPPER BLADE 
CALL LINS (t;P, XIM, YLIM, X2P, YL, DU.M, IDUM) 

ARRAY OF STEADY STATE AREAS THRU CHANNEL ABOVE_REFERENCE_BI 
"ASStNS) = TAU » COSLAM - YU '+ YL 
NPITEt6,16) tJ5,ASS(N3) 

F0RMAT(2X,I2,4X,E15.6) 

IF (AGS(NS) .GT. A3TARJ_GO_TO_20 

"THROAT AREA 
ASTAR = A3S(N5) 

DISTANCE. FROM REFERENCE BLADE L.E. TO THROAT 
XSTAR = XIP(NS) 


I 


PAGE 3 


DATE 60.333/15.02.97 
00001190 
00001150 

00001160 

COO 01 170 
OOOOllCO 
00001190 

00001200 

C0C01210 

00001220 

00001230 

00001290 

00001250 

OOC01260 

00C01C70 

00001260 

OOGO1290 

0G001300 

CC001310 

OC0O132O 

00C01330 

00001390 

00001350 

00001350 

00001370 

00001320 

00001390 

C00C1900 

00C01910 

00001920 

00001930 

00001990 

000019SO 

00001960 

00001970 

00001930 

00001990 

00001500 

CCC01510 

OQC01520 

00001530 

OOC01590 

00001550 

00001560 

00001570 

00001580 

00C01590 

00001600 

00001610 

00001620 

00001630 

; 00001690 

00001650 

00001660 

00001670 

00001630 

00001690 

00001700 

00001710 

00001720 
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»»VER5I0M 1.3.0 
I5H 0079 
ICN 0080 

101 

C 

MAY SO) MAIM SYSTEH/370 FORTRAN H EXTENDED (ENHANCED) 

YUSTAR = YU 
YL5TAR = YL 

SUBSCRIPT OF THROAT LOCATION 

DATE 60.353/15.02.47 
00C01730 
00001740 
_ 00001750 

PAGE 

4 

ISN 

0081 



IT = MS 



00001760 



ISM 

0032 


20 

CONTINUE 



00001770 





c 





0CC01780 





c 


CALCULATE SUPERSONIC MACH NUMBERS FROM THROAT TO EXIT 


00001790 





c 





CC001600 



ISM 

0033 



CALL ZERO <HS5(1), MSSfMSECTl), 1.) 



00001310 



ISM 

COSi 



DO 30 MS = 1, NSECTl 



00001820 



ISM 

0085 



IF (X1F<HS) .LT. XSTAR) GO TO 30 



00001830 





c 


RATIO OF AREA TO THROAT AREA 



00001C40 



ISM 

CC87 



AOAMIN = ASS(MS) / ASTAR 



00001850 



ISM 

0063 



ISS = 1 



00CD1C6O 



ISIJ 

CC69 



CALL HACHIT (AOAMIN, MSSCJS), GAM, TOLMIT, ISS. KILL) 


00001370 





c 


IF (KILL .ME. 0) MRITE (6,25) AOAMIN, XIP(NS) 



OOOOISSO 



ISM 

0090 


25 

FORMAK 'OA/ASTAR = MPEIS.S,’ X = *,E13.5) 



0C001C90 



ISM 

0091* 


30 

CONTINUE 



00001900 





c 





00001910 





c 


TEST FOR CHOKED FLOM AND LOCATE STEADY STATE SHOCK 



00001920 





c 





00C0193O 



ISM 

0092 



BETAIC = ARSIM(SRRT(( (TM03P1 » F10F( Ml ) )***fGPlGMl ) / 

M1»H2) / 

TAU 

*00001940 







1 (TAU * COSLAM + YLSTAR - YUSTAR)) 



00001950 



ISM 

CC93 



IF (DETAl .GE. BETAlO GO TO 41 



00001960 



ISM 

0C95 



NRITE (6,40) 



00001970 



ISM 

0C9(i 


40 

FCRMAK ' FLCX IS NOT CHOKED') 



00001930 



ISM 

C097 



ICKOKE = 0 



00001990 



ISM 

0093 



ASTAR = TAU>*3IN31**MI»f(2./(6/MfI. ) » ( 1. +(GAM-1. )/2. 

» m»»*2)) 


00002000 







» (-(GAM+1. )/(2.)*(GAM'l. ))) 



00002010 



ISM 

0099 



XSTAR = DELTA » COSACH +0.1 



00002020 



ISM 

0100 



IF(C-DELTA+C05ACH .GT. 0.1) GOTO 330 



00002030 



ISM 

0102 



XSTAR = C - DELTA*iCOSACH 



00002040 





c 


t-:RIT£(6,340) XSTAR 



00002050 



ISM 

0103 

3^t0 

FCRMATt//' XSTAR RESET T0',E15.6) 



00002060 



ISM 

010^ 

330 

XO = XSTAR +0.15 



0CC02070 



ISM 

0105 



IF(C-X0 .GT. 0. ) GOTO 61 



OC0020SO 



ISM 

0107 



XO = XSTAR + 0.05 



00002090 





c 


i;0ITE(6,360) XO 



00002100 



ISM 

0103 

360 

FCRMAK//' ««** XO RESET T0',E15.6) 



00002110 



ISM 

C1C9 



GO 70 61 



00002120 





C 


INLET STATIC TO TOTAL PRESSURE RATIO 



00002130 



ISM 

0110 


41 

AC = TAU » SI1I31 



00002140 



ISM 

cm 



AOAMIN -AC / ASTAR 



00002150 



ISM 

0112 



ISS = 0 



CCC02160 



ISM 

0113 



IF (MI .GT. 1.) ISS = 1 



00002170 



ISM 

0115 



CALL MACftIT (AOAMIN, HC, GAM, TOLMIT, ISS, KILL) 



00002180 



_ ISM 

0116 



PIPT = F10F(HC)»fSf GOING 



00002190 



ISM 

0117 



BETAl = EETAIC 



00002200 



ISM 

0118 



BETAPR = BETAl * DOR 



00002210 



ISM 

0119 



1:RITE(6,117) BETAFRl 



00002220 



ISM 

0120 

117 

FORMAK//' BETAlVcl5.6) 



00002230 



ISM 

0121 



ICHCKE = 1 



00002240 





C 


EXIT AREA 



0CC02250 



ISM 

0122 



AE = DELTA SIN32 



00002260 





c 


RATIO OF EXIT AREA TO THROAT AREA 



00002270 



ISM 

0123 



AOAMIN = AE / ASTAR 



00002280 



ISM 

012<i 



ISS = 0 



00002290 



ISM 

0125 



IF (AE .LT. ASTAR) ISS = 1 



00002300 



ISM 

0127 



CALL MACHIT (AOAMIN, ME, GAM, TOLMIT, ISS, KILL) 



00002310 





»«VEKSIOH 1.3.0 

ISN 0123 
IS:J 0129 

(01 

C 

MAY 30) MAIM SYSTEM/370 FOFJTRAM H EXTEKOED (ENHANCED) 

IE (KILL .ME. 0)’ WRITE (6,95) AOAMIN, XIP(NS) 

95 FOrr;AT( 'OAE/ASTAR = ',1PE13.5,' X = ’.EIS.B) 

DC 69 MS = IT, MSFCT1 

DATE GO. 353/15.02.97 
OOCO2320 
00002330 
00002390 

PAGE 

5 



’’ c 

SHOCK MACH MUX3ER 

C0C02350 



IS!J 

C130 


MO = tiS5(NS) 

00002360 



is;i 

0131 


IFinO.GT. 0.999 .AMO. MO. LT. 1.001) MO=1.01 

00002370 





_p_ 

TOTAL IflLET TO EXIT PRESSURE RATIO 

DCC02330 



ISM 

0133 


PTIPTE = 1. 

00002390 



ISU 

013'+ 


IF (MO .GT. 1.1) PTIPTE = 

O0OC290O 






1 (1. + GAM T’.ICGPl » (M0*(«2 - l.))^*(l. / (GAM - 1. 

)) « 00022910 






2 (2. * FIOF(MO) / ((GAM + 1.) M0**2 ) rGOlMG ) 

00002920 





c 

STATIC PRESSURE RATIO ACROSS STAGE 

C0022930 



ISM 

0136 


FEPI = PR « PriPTE 

CCC02990 





c 

T*:P0,\T TO EXIT PRESSURE RATIO 

00002950 



^ISM 

_0137 


PPCCRR = PIFT « TNSGPl^JiGOlMG PR 

00002960 





~c“ 

SHOCK I))LET MACH NU.MDER 

00002970 



ISM 

0133 


noi = MO 

00002430 




• 

c 

SHOCK EXIT MACH NUM3ER 

0CCC2490 



^ISM_ 

.0139 


MCE = SQ?T(F10F(MOI) / (GAM * M0I^?<2 - (GAM - 1.).,* .5)) 

00002500 





“c" 

SHOCK INLET TO THROAT STATIC PRESSURE RATIO 

00002510 



ISM 

0190 


50 POIPTH = F10.= (MO)«WGOirS / ((GAM + I.) .5)»n<G01MG 

OOCC2520 





c 

SHOCK EXIT TO irJLET STATIC PRESSURE RATIO 

00002530 



^ISN 

0191 


PCEPJI = 1. + GAM ^ TUSSPl * (MQi'»2 - 1.) 

OC002590 





~~c~ 

STACE EXIT TO SMOCK EXIT STATIC PRESSURE RATIO 

00OC2530 



ISM 

0192 


FEPOE = (FlCF(t;E» / FICF ( MOE ) 1 m»G01MG / PTIPTE 

00002560 





c 

CSTAIfC.E.LE PRESSURE RISE (STAGE EXIT TO THROAT STATIC PRESS. 

RAT. )C00C2S70 



ISM 

0193 


FROST = POIPTH F POEPOI * PEPOE 

00002550 



IS.M 

0199 


IF (AS3(FRCC.R,R/FRC3T-1. j.GT. EPS) GO TO 60 

00002590 





c 

DISTANCE FROM REFERENCE BLADE L.E. TO STEADY STATE SHOCK 

QOC02600 



ISM 

0196 


XO = X1F(N3) 

00002610 



ISM 

0197 


X5-X0 

0C002620 



ISM 

0193 


IF(XSTAR.NE.XO j GOTO >1 

00002630 



ISM- 

0150 


;:rite(6,75) 

00002690 



ISM 

0131 


75 FCRNATC '.'THE SHOCK IS LOCATED AT THE THROAT') 

00002650 



ISM 

CIS 2 


GOTO 500 

00002660 



ISM 

0133 


71 X2P = XO - TSLAM 

00002670 



IS‘< 

0139 


CALL LINE (NP, XIN, YUIN, XO, YUO, YUOXO, IDUM) 

00002630 



ISM 

CiSS 


CALL LINE (NP, XIM, YLIM, X2P, YLO, YLOXO, IDUM) 

00002690 



ISM 

QIS-S 


EO = ZP - XO / C 

00002700 





c 

STF/DV STATE SHOCK AREA 

00002710 



ISM 

0157 


AO = ASSOiS) 

00002720 



ISM 

0153 


PO = FlCF(MO)wi<s01MS * PT 

00002750 





_c_ 

SUESCRLPT OF SHOCK LOCATION 

0CCO2T9O 



ISM 

0159“ 


IS = r;s 

00002750 



ISM 

0160 


C-0 TO 65 

00002760 



ISM 

0161 


60 CCNTIMUS 

00002770 



_ ISM 

0162 


61 IS = 0 

OC002760 



“ ISM 

016 3 


WRITE (6»62i 

00002790 



ISM 

o;69 


62 rCRMATC STEADY STATE SHOCK POSITION NOT FOUND') 

00002300 



ISM 

0165 


GO TO 5CO 

00002310 





c 


00002820 





"c" 

CALCULATE CAPTURE MAC.H NUMBER 

00C02330 





c 


00002390 



I3N 

0166 


65 AC = TAU » SIN(BETAIC) 

00002350 





c 

RATIO OF CAPTURE AREA TO THROAT AREA 

00002860 



Z Ts'm 

"0167 


AOAMIN = AC / A3TAR 

C0002S70 



ISM 

OjoS 


I3S = 0 

OOOC2B80 



ISM 

0169 


IF (MI .GT. 1.) ISS = 1 

00002690 



ISM 

0171 


CALL MACHIT (AOAMIN, MC, GAM, TOLMIT, ISS, KILL) 

00002900 
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SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 60. 353/15. 02. A7 


PAGE 


isn o:o2 

ISM 0203 
ISN 020^ 
JSM 0205_ 
ISM 0207 


ISM 0208 


ISN_0209_ 
'ISM 0210 


ISN 0211 


ISN 1)212 
ISN 0213 




C 

IF (KILL .NE. 0) WRITE (6,66) AOAMIN 

00002910 

ISN 

0172 

66 

FCRMAT( 'OAC/ASTAR = MPE13.5) 

00002920 



c 


00902930 



C 

CALCULATE STEADY STATE PRESSURES 

00002940 



c 


00002950 

ISN 

0173 


PCPT = F10F(MC)J*»^(901MG 

00002930 

l£!i 

0174 


PC = PCPT » PT 

00CC2970 

ISM 

0175 


IFdCHCKE.EO.l 1 GOTO 370 

0COO2 960 

ISM 

0177 


CALL LIME (NP.XIM.YUIM, XSTAR, YU, DUM.IDUM) 

00002990 

ISM 

0173 


CALL LINE (NP,XIN,YLIN,XSTAR-7SLAM,YL,DUri,IDUM) 

00003000 

w 

0179 


AREA = TAU » CCSLAM - YU + YL 

00003010 

ISM 

0150 


AOAMIM = AREA / ASTAR 

C0003020 

ISM 

0181 


CALL MACHIT ( AOAMIM, XMS, GAM, TOLttIT,ISS, KILL ) 

CC005030 

IS!) 

0132 


FMIPT = FIOF(XMS) COirtG 

00C03040 



C 

WR I TE ( 6 , 2 0 1 ) XSTAR , TSLAM , YU , Y L , AR E A , AOAMIN , XMS , P,11 PT 

00003050 

ISM 

0153 

201 

FCRMAT(/' XST AR, TSLAM, YU, YL, AREA, AOAMIN, XMS, PM1PTV8E15. 6) 

00003030 

ISM 

Dl«4 


GOTO 380 

0C003070 

ISM 

0133 

370 

FMIPT = ((GAM + 1.) » .5)i«»C01MS 

C00030GO 

IS.M 

01S6 

3S0 

pru = FMIPT « PT 

O0C03090 

ISM 

0137 


PIPT = F1CF(M0)»^x601MG 

OC003100 

ISM 

0IC3 


PENT = FIPT t* PT 

00C03110 

ISM 

0189 


PCEPI = 1. + GAM * TMCGPl * (M0»*2 -1.) 

00003120 



C 


OOOU3130 

ISM 

0190 


IFdCHCKE.EQ.l) GOTO 375 

00003140 

ISfl 

0192 


CALL LINE (MP,XIM,YUIN,X0,YU,DUM,IDUM) 

COC03150 

ISM 

0193 


CALL LINE (H?,XIN,YLIM,X0-T5LAM,YL,DUri,IDUM) 

O0CO316O 

ISM 

0194 


AREA = TAU * CQSLAM - YU + YL 

00003170 

ISM 

0195 


AOAMIM = AREA / ASTAR 

00003180 

I3)J 

0196 


CALL M.ACHIT ( AOAMIM, XMO, GAM, TOLMIT,ISS, KILL) 

OCC03190 

ISM 

0197 


POE = FlOr(XMO) ** GOIMG «PT 

00003200 



C 

URITE(6,2C2 ) XO, TSLAM, YU, YL, AREA, AOAMIN, XMO , POE 

00003210 

ISM 

0190 

202 

FC7I :AT( / • XO .TSLAM , YU , Y L , AREA , AOAMIN , XMO , POE ' /8E15 . 6 ) 

00003220 

IS)1 

0199 


GOTO 3S5 

00003230 

ISN 

0200 

375 

POE = PCEPI » PENT 

00003240 

ISM 

0201 

385 

PEPT = F10r(ME)^»^G01M3 

00003250 


PT 


.5 


PE = PEPT 
PISS = (F!1l + PC) 

P2S5 = (FEHT + FMl) » .5 
IF(ICHCKE.EQ.O) P2SS=( P0E + R11_1_ 
~P3SS = (POE V PE) * .5 ' 

CALCULATE STEADY STATE MOMENT 


X5TAR * (BIPE - XSTAR 
(XSTAR + (XO - XSTAR) 

(XO + (C - XO) .5)) 

C03ACH_ 

(XSTAR - bCACH)* (bIPE - (XSTAR 
.5) + P2SS » (XO - XSTAR) * 

DCACH + (XO - XSTAR) « .5)) 

DCACH)) )* (BIPE - (C + (XO 
'i .5) " 

MOSS =(MUSS + MLSS)/12. 

CALCULATE STEADY STATE LIFT 


MUSS = -PISS * 

1 (BIFE - 

2 (BIPE - 

_ DCACH = DELTA 

MLSS =■ PISS 

1 
2 

3 


LUSS = -PISS * XSTAR - P2SS * 
LLSS = PISS (XSTAR - DCACH) 
1 (XO - DCACH)) 


00003260 
00003270 
O0CO32OO 
^00003290. 
00003300 
00003310 
00003320 
OC003330 

.5) - P2SS * (XO - XSTAR) i000O33^O 
.5)) - P35S (C - XO) » 00003350 

CC0C3360 

0CC03370 

00003350 ' 
00003390 
OO0O3AOO 

0C003A10 

00003A20' 
0COO3A30 
00003AA0 

00003450 

00003460' 
00003470 
(C - 00003480 
00003490 


DCACH ) 
(SIPE - (XSTAR - 
+ P3SS » (C - (XO - 
DCACH)) * 


(XO - XSTAR) - P3SS * 
+ P2SS « (XO - XSTAR) 


(C - XO) 
+ P3SS » 



^^VE^S1CN 1.3.0 
ISM 021'i 
ISM 0215 
ISM 0216 


ISM C217 
ISM C210 
ISM 0219' 

ISM 0220 
ISM 0221 


(01 MAY 60) MAIM SYSTEH/370 FO!^TRAN H EXTEMDED (ENHANCED) D/ 

LSS =(LUSS + LLSS)/12. 

MSITE (6,100) PISS, F2SS,P3SS, MOSS, LSS 

100 FCRMAK//' STEADY STATE VALUES ' //IIX, ' PI 10X,_'P21, 10X,iP,3i,6X,_ 

1 ‘MOMENT • ,£X, ' LIFT ‘ //IX, 3F12 . , F12 .5 , F12 .6 ) 

C 

DL'M = PP03T/PPCCPR 

MRITE(6,200) X5TAR ,X0 , ASTAR ,M0 ,DUM, PTIPTE. 

200 FOPMAK /TS, 'XST/.R’ ,T22, 'X0‘ ,T36, ’ASTAR' ,T52, 'MO' ,T63, 

? 'FPC3/PP00RR’ ,TaO,'PRLCSS'/6E15.6) 

i;rite(6,6oo) mss 

_600 FORMAK/,^ MSS’/(6E15.6)) 

C DEFINE STEADY STATE VOLUMES 


ISN 

0222 

AC 

= 

DELTA^SIMACM 

ISM 

0223 

AE 


0ELTA*5IMACH 

ISM 

C224 

VIA 


0.0 

ICM 

cees 

xe);t 

= 

L’ElTA^«COSACH 

ISM 

0226 

CALL 

LIHE 

t!(P, XIM, YUIM, XENT, YUENT, DUM, IDUM) 

ICM 

C227 

VIB 


0.5^--DELTA»(»<2^=COjACH»‘SIMACH-.5J«DELfA«COSACH^YUEMT 

ISM 

C223 

X2P 

- 

0 

ISM 

0229 

CALL 

LIME 

(NP, XIM, YLIN, X2P, YLENT, OUM, IDUM) 

ISM 

0230 

VIC 

_j= 

(DELTA«3IK'ACH-( YUSTARtYUENT)/2_^0_+(YLSTAR + YLENT)/2 J))w 





(XSTAR-XENT) 

ISM 

0231 

VOLl 

= 

VlAi V13+V1C 

ISM 

02.T2 

V0L2 

= 

1 DE LTA<C:MACH-( YUO+ YUSTAR )/2 . 0+( YLO+YLSTAR )/2 . 0 )» 





(X3-XSTAR 1 

"i'CM 

0235 

TUE 

= 

YilTM(MP) 

ISM 

0234 

V3A 


( D£LTA^4SINACH-( YUE+YUO )/2 . 0 + ( YLO+YL )/2 .0 )« 



7 


(C-XO ) 

ISM 

0235 

XCD 

= 

C-DELTAHC03ACH 

ISM 

0236' 

call 

llfiE” 

(UP, XIM, YLI.‘'I ,XCb, YL'M, DUM, IDUM) 

ISM 

0237 

V23 

= 

0 . 5)^0 E LTA* >f2if SIMACH*:COSACH- . 5<*DE LTA+iCOSACH*rYLW 

ICM 

0233 

V3C 

= 

0.0 

ISM 

0239 

VCL3 

= 

V3A+V33+V3C 1 

'ISM 

024 0 

M.'!ITE(6,605) 1 

ISM 

0241 

605 FCRIIAT( ■ ‘ 

' ,T3, 'VIA' ,T15, 'VIB' ,T27, ' VIC ' ,T39 YUENT' ,T51, 'YUSTAR' , 





T63, 'YLSTAR* ,T75, 'YLENT' ) ' 

ISM 

0242 

MR1TE(6,610) V1A,V1B,V1C,YUEMT,VUSTAR,YLSTAR,YLEMT ' 

1SM‘ 

0243 

610 FC:?MAT( • ’ 

r* 

' ,8(E11.4,1X)) 

ISM 

0244 

CALL 

UMST 


ISM 

0245 

500 STOP 



'iSti 

0246 

'EMO 




60.353/15.02.47 

00003500 

0C005510 

00003520 

00003530 

00003540 

OC003550 

OOC03D60 

00003570 

00003580 

00003590 

00003600 

00003610 

00003620 

00003630 

00003640 

00003650 

00003660 

0C2C3670 

00003630 

OOOC3690 

00003700 

00003710 

00003720 

CQ0Q373O 

00003740 

00003750 

00003760 

00003770 

00003760 

00003790 

00003300 

00003010 

00003320 

00003030 

00003640 

0C003350 

00003860 

00003870 

00003330 

00003390 

00003900 

00003910 

00003920 

00003930 


SYMBOL 

INTER) 

0 

!AL STATEriEMT MUMS 

R T R 
ERS 

A N 

CROSS 

REFER 

E N c 

E L 1 S T 1 N 


B 

“0047 ' 

0043 

0049 









C 

OC02 

0011 

0031 

0047 

0051 

0C65 

0100 0102 

0105 0156 

0206 

0208 0210 0210 

0212 0213 0234 0235 

E 

0002 

0011 

0031 

0048 

0049 







I 

0015 

0013 

0013 

—OOl^ 

0014 

_qoi^ 

0015 0015 

_qqi5 0035 

0035 

0035 0035 0035 


V 

0002 

0011 

b03T' 









AC 

0002 

0110 

0111 

0166 

0167 

0222 






AE 

0002 

0122 

0123 

0125 

0223 







AO 

0002 

0157 










■ EO 

0136 











IS 

0159 

0162 










IT 

0081 

0129 










nc 

0003 

0115 

0116 

0171 

0173 
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R T R 

A N 

C R 

OSS 

R E 

F E R 

E N C 

E 

LIS 

TIN 






SYMBOL 

INTERNAL STATEMENT NUMBERS 















'me 

0005 

0127 

0142 

0201 
















MI 

o:c 2 

0003 

OCll 

0020 

0031 

0098 

0093 

0113 

0169 











MO 

0002 

0G03 

0130 

0131 

0131 

0131 

013 + 

0134 

0134 

0134 

0138 

0140 

0141 

0158 

0187 

0189 

0218 



Ml 

OC03 

0011 

0020 

_0020_ 

0031_ 

0092_ 

.0092. 













N3 

0C09 

OC27 

C031 

















NP 

0009 

C013 

C014 

0015 

0031 

0035 

0070 

C071 

0154 

0155 

0177 

0178 

0192 

0193 

0226 

0229 

0233 

0236 


NS 

CC67 

0C68 

0068 

0069 

0073 

0C72 

0073 

0073 

0075 

0077 

0078 

0081 

0084 

0085 

0037 

0039 

0129 

0130 

0146 


0157 

0159 


















PC 

0174 

■ 0203 


















PE 

0202 

0207 


















PI 

C042 

CC44 

0052 

















F3 

coil 

0051 

0136 

0137 
















"Pf 

C002 

coil 

0033 

"OOEO" 

“oisa"' 

'bl74~~ 

"0136“ 

"oiss" 

0197“ 

"02br” 










PO 

0153 



















TT 

0002 

0011 

0033 

0050 
















XS 

0002 

0147 


















X() 

0104' 

0105 " 

0107' 

“'6146“ 

0147“ 

0148 ” 

'oisi' 


"015^ 

"0192“ 

"oiw” 

"020^ 

~^08' 

""02oT 

“T20S“ 

"0203“ 

0210“ 

“oaT* 

0210 


0210 

0212 

0212 

0213 

0213 

0218 

0252 

0234 












YL 

C071 

0072 

0030 

0178 

0179 

0193 

0194 

0234 












YU 

0070 

0072 

0079 

_0177_ 

_0179_ 

0192_ 

0194. 













ZP 

'ocsi 

0156 


















AES 

0144 



















ASS 

OOC4 

0072 

0073 

0075 

0077 

0007 

0157 













COS 

0C53 

C059 

0C62 

















OCR 

'C037 

' 0033" 

0039 

~C040~ 

'oc4i“ 

Oil's" 














OLTI 

C070 

0071 

0177 

0173 

0192 

0193 

0217 

0218 

0226 

0229 

0236 









EPS 

0011 

0016 

0016 

0031 

0144 















_GAI1 

0005 

0011 

0018 

0018 

0031 

0056 

0056 

0057 

0057 

0053 

_0069_ 

_0098_ 

_CD98 

_0p98 

__op?^ 


_0127_ 

_pi.34_ 

0134 


'0134 

0139 

0139 

"0140 

0141 

0171 

'013l' 

0165 

0189 

0196 










ISS 

0033 

CO 39 

0112 

0113 

0115 

0124 

0125 

0127 

0168 

0169 

0171 

0181 

0196 







LSS 

CC03 

0214 

0215 

















MSS 

0003 

0004 

0063 

0083 

_0039__ 

013p_ 

-022?. 













'moe 

'0202 

■■ 0003“ 

0139 

■ 0142 
















MOI 

0C02 

0003 

0133 

0139 

0139 















FMl 

0186 

0203 

0204 

0205 
















POE 

0197 

0200 

0205 

0207 
















SIN 

'0054 

0060 

0C61' 

0063 

“Olt)^ 















TAU 

0026 

0033 

0055 

0064 

0072 

0092 

0092 

0098 

0110 

0166 

0179 

0194 









VIA 022A 0231 02A2 

_yiB 0227_0231_02A2 

VIC 0230 0231 0242 

V3A 0234 0239 

V23 0237 0239 

_V3C 0233 0239 

"XCD 0235 0236 


XIN 

0004 

0013 

0035 

0070 

0071 

0154 0155 0177 0178 0192 0193 0226 0229 0236 

XM3 

0181 

0182 





X):o 

0196 

0197 





XIP 

0004 

0068 

~()(j69~ 

’ 0070 ~ 

0078“ 

0085 0146 

X2P 

0C69 

0071 

0153 

0155 

0228 

0229 

YLH 

0236 

0237 





YLO 

0155 

0232 

0234 




!yue 

0233 

0234 





YUO 

0154 

0232 

0234 




AREA 

0179 

0180 

0194 

0195 




ASSE 0064 
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MAIN 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 80. 353/15. 02. A7 


PAGE 9 


to 

to 


SYMBOL 

0 R T R 

INTER?IAL statement NUMBERS 

A N 

C R 

OSS 

R E 

F E R 

E N C 

E 

LIS 

TIN G**»**» 

bi::e 

o:a3 














DIFE 

CC'+9 

0051 

0203 

0208 

0208 

0210 

0210 

0210 







OIAM 

0011 

0027 

0031 












CXI? 

0065 

0053 













>10? 

00 03 

0092 

' 0116' 

''6i39'“ 

'bl39~' 

“0190"~ 

"0192' 

”0192* 

“6 158““ 

’6173“' 

' 6182 ““ 

“ 6 is 7 

"“0197' 

0261 

HOAR 

C002 

0011 

0031 












I CUM 

0070 

0071 

0159 

0155 

0177 

0173 

0192 

0193 

0226 

0229 

0236 




KILL 

OOC9 

0115 

0127 

0171 

0181 

0196 









LIttE 

0070 

0071 

" 0159 

“0155 

0177 

0178“' 

'bl9F 

'“6193" 

’“0226““ 

0229“ 

“0236~ 




LLS5 

0003 

0213 

0219 












LUS5 

00C3 

0212 

0219 












ML53 

0003 

0210 

0211 












'r;c"s 

CZ03 

0211 

“ 0215' 












M'J33 

CC03 

0203 

0211 












c;:;5 

Cr»A3 














FCPT 

0173 

0179 













>h.‘:t 

0183 

■ 0200 

0209 












FEPI 

0135 














FEPT 

0201 

0202 













PIPT 

0116 

0137 

0187 

0188 











■piss" 

0002 

■ 0203 

0203' 

0210 

0212“' 

02i3“ 

0215“ 








F335 

CC02 

0209 

0205 

0203 

0210 

0212 

0213 

0215 







P333 

0CC2 

0207 

0200 

0210 

0212 

0213 

0215 








FGA5 

0005 

0022 

__0022 

_0033_ 

_0050_ 










r:;ot 

'cczo 














e-;rt 

0072 

0139 













L’);3T 

c:a9 














VOLl 

CC02 

0231 













'vote' 

0002 

0232 













VCL3 

0002 

0239 













x:i;r 

0223 

0226 

0230 












YLIN 

000'+ 

001^' 

0035 

0071 

0155 

0173 

0193 

0229 

0236 






“YL'Tfj 

CCOA 

0015 

'0035 

0070' 

0159 

0177 

0192' 

0226’ 

0233 






ze;>o 

0C33 














ALFCH 

0002 

0011 

0031 

0039 

0039 

0052 

0059 

0060 







AFSItt 

00 92 














"astar' 

CC02 

0066 

0075 

“b077'“ 

'0087“' 

0093 “ 

Olll' 

~bl23“ 

“bibs'' 

■bl67“ 

“oi'eir" 

0195 

” 62 is' 


CcTAl 

0002 

7011 

0031 

0090 

0090 

0061 

0093 

0117 

0118 






B3TA2 

0002 

0011 

0031 

0091 

0091 

0062 

0063 








CC33 2 

CC62 














CCACH 

'0209 

“0210 

“ 0210 

“0210'“ 

0210“ 

0210“ 

■0213' 

"“0213' 







DELTA 

0002 

boil 

0026 

0031 

0099 

0100 

0102 

0122 

0209 

0222 

0223 

0225 

0227 

0227 0230 0232 0239 0235 0237 


0237 














^CMACH 

OOCA 














'float 

0055 

■■0068 













G01M3 

0056 

0116 

0139 

0137 

0190 

0190 

0192 

0153 

0173 

0182 

0185 

0187 

0197 

0201 

IN *.'.■£ 

0009 

0028 

0031 












f.'SZCT 

0009 

0031 

0C95 

_0065_ 











)!rir;E 

0051 

0096' 













c::zGA 

0C02 

con 

0031 

0093 

0099 

0099 









PEPOE 

0192 

0193 













_p;iiPT 

0132 

0165 

0186 












If.tcdt 

'0193 

0199' 

0217' 












FOEPI 

0139 

0200 













SINBl 

0061 

0093 

0110 












sit;s 2 

0063 

0069 

0122 
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ORTRAN CROSS REFERENCE LISTIN 
SYrtBOL__INTERNAL STATEMENT, NUMBERS 


TITLE 

TSLAM 

X'.L\CH 

_X5TAR__ 

YLENT 

YLOXO 

YM/-CH 

OOOJf 
0055 
OOO^k 
0002 
0210 ' 
0229 
0155 
OOOA 

0007 

0065 

0078 

■'0212 

0230 

0031 

0063 

0035 

0212 

0242 

0C69 

0099 

‘0213 

0153 

0102 

0213 

0178 

0104 

0218 

0193 

0107 

0230 

0148 

0232 

_0177_ 

_0178 p208_ 

_020e ^0203. 

0208 0203 0210 0210 0210 0210 


YUENT 

0226 

0227 

0230 

0242 










YUOXO 

0154 













ALFDAR 

0002 

0011 

0031 

0038 

0038 









AOANIN 

0037 

0039 

0111 

0115 

0123 

0127 

0167 

0171 

0180 

0181 0195 

0196 



. BETAfR 

0118 

0119 












3ETA1C 

0092 

0093 

0117 

0166 










C03ACH 

0839 

0099 

0100 

0102 

0209 

0225 

0227 

0227 

0235 

0237 0237 




CCS LAM 

0053 

00V2 

0092 

0179 

0194 









GPIGMI 

0057 

00 = 2 












ICHCME 

0097 

0121 

0175 

0190 

0205 










0003 

0052 

CC53 

0054 










HACfllT 

0039 

Oils 

0127 

0171 

0181 

0196 








NSECTl 

00'i5 

0067 

0033 

0064 

0129 









NTIMEl 

0046 













FHiiro 

0002 

0027 

0028 

0028 

0030 

0031 








PHiisr 

CC02 

0030 

0031 











FPCCPR 

0137 

0.'.44 

0217 











priPTE 

0133 

0134 

0136 

0142 

0218 









PCEFCI 

0141 

0143 












POIPTH 

0140 

0143 












SINACH 

0060 

0222 

0223 

0227 

0230 

0232 

0234 

0237 






SINLAM 

0054 

0055 












TOLMIT 

0011 

0024 

0024 

0035 

0039 

0115 

0127 

0171 

0181 

0196 




TN3SP1 

0053 

0092 

0134 

0137 

0141 

0189 








YLSTAR 

0080 

0092 

0230 

0232 

0242 









YUSTAR 

0079 

0092 

0230 

0232 

0242 













R T R 

A N 

C R 

OSS 

R E 

FERENC 

E LIS 

TIN G»**»**t* 



"LABEL DEFINED REFERENCES' 


5 0032 0031 

6 C03'» 0033 

7 0036 0035 


10 

16 

20 

23 

C007 

0074 

CCS2 

0090 

0073 

0067 

0075 


50 

C091 

0084 

0085 


40 

0096 

0095 



41 

0110 

0093 



45 

0128 




50 

0140 




60 

0161 

0129 

0144 


61 

0162 

0105 

0109 


62 

0164 

0163 



65 

0166 

0160 



66 

0172 




71 

0153 

0148 



75 

0151 

0150 





»VERSICN 1.3.0 (01 MAY 80) 


MAIN 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 80. 353/15. 02. <47 


PA(SE 11 







0 R T R A N 

CROSS 

REFERENCE 

L I S T I N G*»(**« 

LABEL 

DEFINED 

REFERENCES 




£0 

0003 

0007 





SS 

0010 

0009 





C6 

0012 

0011 

0013 0019 0015 




ICO 

0216 

0215 





117 

C130 

0119 





200 

C219 

0218 





201 

0133 






202 

0193 






330 

CIO'4 

0100 





3A0 

0103 






360 

0103 






370 

01 £5 

0175 





375 

C2C0 

0190 





333 

Olf.6 

0139 





3!5 

3C01 

0199 





500 

0295 

0307 

0152 0165 




6C3 

o:2i 

0220 





605 

0 291 

0290 





610 

0293 

0292 






/ main'/ SIZE of' PROGRAM OOEATC HEXADECIMAL BYTES 



NAt!E 

TAG 

TYPE 

ADD. 

NAME 

TAG 

TYPE 

ADD. 

NAME 

TAG 

TYPE 

ADD. 

NAME 

TAG 

TYPE 

ADO. 


B 

c r 


R*9 

0CC558 

C 

SF 

C 

RX9 

000099 

E 

SF 

C 

R*9 _ 

00CC19_ 

I 

F_ 


_.I*9 

00035C 


V 

Sr 

'c 

R <9 

CCOC 79 

AC 

SF 

C 

R*9 

ccooia 

AE 

SF 

C 

R*9 

COOOOC 

AO 

S 

C 

R*9 

OOOOIC 


EO 

S 


p '•9 

0CC260 

IS 

S 


1*9 

003E:.9 

IT 

SF 


1*9 

00CE.6O 

MC 

SFA 


R*9 

00CB6C 


r‘.E 

SFA 


P*9 

O0CS7O 

MI 

SF 

C 

RW9 

CC0093 

no 

SFA 

C 

R*9 

000020 

Ml 

SFA 


R?»9 

OOOS74 


r'3 

SF 


1*9 

C0CB73 

NP 

SFA 


1*9 

COOD7C__ 

H3 

SFA_ 


1*9 

000330_ 

PC 

SF_ 


_R«9 

000334 


PE 

£F 


R-.9 

CCC2.;.3 

' PI 

SF 


R*9 

COOOLC’ 

FR 

SF 


R*9 

000390 

PT 

SF 

C 

R*9 

00004C 


FO 

S 


R*'9 

0CC399 

TT 

SF 

C 

R^9 

00L02C 

XS 

S 

c 

R*9 

000030 

XO 

SFA 


R*9 

000B98 


YL 

SFA 


r;;9 

C0CS9C 

YU 

SFA 


RX9 

000290 

2P 

SF 


R*9 

000DA9 

ASS 

SF 


R*9 

OOOCFO 


C23 

F 

_XF 

R«9 

COC300 

DOR 

Sr 


Rif9 

CCC2A3_ 

Dun 

SFA_ 


R*9 

OOOB7.C 

EPS 

SF 


R»9 

OOODBO 


GAN 

sfa“ 


R*9 

0CC229" 

ISS 

sfa' 


1*9 

CCC233 

LS5 

SF 


R*9 

00035C 

MSS 

SFA 


R*9 

OOODSC 


MCE 

2FA 

C 

R.<9 

C00329 

r;ci 

SFA 

c 

R*9 

000023 

PMl 

SF 


R*9 

0002CO 

POE 

SF 


R»9 

OOC3C4 


s:i: 

r 

XF 

Rh9 

OCCCOO 

TA'J 

SFA 


R*9 

CCC2C3 

VIA 

SF 


R*9 

OOOECC 

VIB 

SF 


RJ«t 

OOOBDO 


VIC 

£F 


R*'9 

00C229 

V3\ 

SF 


P*9 

CC05D3 

V53 

SF 


R*9 

0002DC_ 

V3C 

SF 


R*9 

OOOBEO 


>',D 

3FA 


P*9 

0ir:24 

XIN 

S'" a’ 


R«9 

000E33 

XI ;s 

SFA 


R*9 

OOQ2E8 

XMO 

SFA 


R*(9 

OfJCBEC 


p 

SFA 


R»'9 

000750 

X2P 

SFA 


R*9 

OC02FO 

YLIJ 

SFA 


R*9 

OOOEF9 

YLO 

SFA 


R»<9 

DOOBFa 


YL'T 

SF 


R«9 

0002"C 

YU'J 

SFA 


R*9 

CCOCOO 

AREA 

SF 


R*9 

000C09 

ASSE 

S 


R*9 

OO0CO8 


CINE 

S 


R^49 

00 : 20 c 

El PE 

SF 


R*9 

OCOCIO 

DI7.M 

SF 


R*9 

000C19 

DXIP 

SF 


R*9 

000C18 


FlOF 

A 

ASp — 

R'^9 

CCCCTO 

HOAR 

SF 

“c 

R*9 

OC0069 

lE'JN 

SFA 


1*9 

OOOCIC 

KILL 

SFA 


1*9 

OOOC20 


Li:’l 

SF 

XF 


OCOCOO 

LLS3 

SF 


R*9 

00CC29 

LU5S 

SF 


R*9 

OOOC23 

Hlss 

5K 


R*9 

000C2C 


if: 23 

E r 


RX9 

C02230 

MJ33 

SF 


R*9 

CCCC39 

ON2G 

S 


R*9 

C00C36 

FCPT 

SF 


R*9 

000C3C 


PENT 

£F 


R-’-9 

CCCC90 

FEPI 

S 


R*9 

000C99 

PEPT 

SF_ 


R*9 

OOCC93 

PIPT 

SF 


R*9 

000C4C 


P123 

Sr ’ 

“c 

R.<9 

0C0033' 

P2SS 

SF 

~c 

R*9 

COOC ZC 

P335 

SF 

'”'c' 

R*9 

OCC090 

RGAS 

SF 


R*9’ 

ooocso' 



S 


R*9 

000259 

SORT 

FA 

XF 

R*9 

occooo 

UK ST 

SF 

XF 


OCOCOO 

VOLl 

S 

C 

R*9 

oocooo 


V222 

s 

C 

R '9 

000009 

VOL 3 

S 

C 

R*9 

0O0C03 

XEilT 

SFA 


R*9 

OCOC53 

YLIN 

SFA 


R*9 

OOlOlC 


YL’IN 

SFA 


R*9 

0010E9 

2E.PO 

SF 

XF 


occooo 

ALPCH 

SFA 

C 

R’-9 

C00C58 

AR5IN 

F 

XF 

R*9 

000000 


A3F/ = 

SF 

c 

RX9 

OOCOlO 

BETAl 

SFA 

"c 

R*9 

COOC50 

BETA2 

sfa' 

C 

R-‘9 

OCOC59 

C0E32 

S ' 


R*9 

000C5C 


CCACH 

SF 


R*9 

OCCC60 

DELTA 

cc 

c 

Rrt9 

OC0063 

DKACH 



R*9 

NR 

GOING 

SF 


R*9 

000C64 


Il'AVE 

3r 


Ii<9 

000C63 

NSECT 

SFA 


l«9 

C00C6C 

NTIIlS 

F 


1*9 

COCC70 

ONEGA 

SF 

C 

R*9 

OC006C 


FEPOE 

SF 


R-*9 

C00C79 

FMIPT 

SF 


R«9 

0C0C78 

FPCDT 

SFA 


R*9 

CC0C7C 

POEPI 

SF 


R*9 

oooceo 

*z 

SINoi' 

SF 


R-9 

'000039 

SIN32 

SF 


R*9 

00CC33 

TITLE 

SF 


R*9 

COllAC 

TSLAM 

SFA 


”"r*9 

ooccsc 


XNACH 



R»9 

NR 

XSTAR 

SFA 

C 

R*9 

000039 

YLENT 

SFA 


R*9 

C00C9O 

YLOXO 

SFA 


R*9 

00CC94 


VrlACH 




NR 

YUE.NT 

SFA 


RK9 

000C9S 

YUDXO 

SFA 


R*9 

0C0C9C 

FRXFRS 


XF 

R»9 

cooooo 


ALPBAR 

SF 

c 

R^*9 

000070 

AO AMIN 

SFA 


R*9 

OOOCAO 

BETAPR 

SF 


R*9 

OOOCA4 

BETAIC 

SFA 


R*4 

000CA8 
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MAIN 

SYSTEM/370 

FORTRAN 

H EXTEND 

ED (DLHANCED) 

DATE 

60. 353/15. 02. A7 

PAGE 

12 


C05ACH 

SF 

RHA 

OOCCAC 

CC5LAM 

SFA 

R*iA 

COOCDO 

GPIGMI 

SFA 

R^‘A 

000C3A I3C0MS 

F XF 

I«A 

OOOCOO 

lOiOKE 

S 

I«A 

COOCZ3 

l/j::da 

SFA 


OCOCE.C 

MACH IT 

SF XF 


OCOOOO N3ECT1 

SFA 

I^<A 

OOCCCO 

NTIr'El 

s 

I«A 

OOOCCA 

PHIIS3 

SF ...C, 


OOOOSC 

_ PHII8T 

SF _ C . 

_ P«A 

000060 FRCORR 

SFA 

R«A 

00CCC6 

PTIPTE 

sf" 

RfA 

OOOCCC 

PCEPCI 

SF 

R«A 

OOOCDC 

POIPiH 

SF 

RXA 

OOCCOA SINAC.H 

SF 

R»A 

OOOCDB 

SIIJLAM 

CC 

Ri<A 

OOOCDC 

TOLMIT 

SFA 

R*A 

OOOCEO 

TNC3P1 

SFA 

R«A 

OOOCEA YLSTAR 

SFA 

Rf«A 

0CCCE8 


YU5TAR SFA OOCCEC 

’ ccrrON Ih'FCPFIATION 


HAME OF COr^FiCN BLOCK * * SIZE OF BLOCK 000078. HEXADECIMAL BYTES. 


VAR. NAME 

TYPE 

PEL. ADDR. 

VAR. NAME 

TYPE 

REL. ADDR. 

VAR. NAME 

TYPE REL. ADDR. 

VAR. NAME 

TYPE 

REL. ADDR. 

VC LI 

RXA 

OOOOCO 

VOLE 

R^A 

COOCOA 

V0L3 

R»A cocoas 

AE 

R»A 

OOOOOC 

ASTAR 

R*A 

OOCOlO 

E 

R'A 

OCCOIA 

AC 

Ri^A 000018 

AO 

R*A 

OOOOIC 

i:o 

R»iA ' 

C0OC2O' 

roE ■" 

R^A 

coocca’ 

MO I 

R»A 000026 

TT 

R*A 

00002C 

X3 

R»A 

C0C03O 

XSTAR 

R-^A 

00003A 

PISS 

R»A OC0033 

P2SS 

RMA 

00003C 

PIES 

RVA 

OCOOAO 

C 

R-A 

OOQCAA 

MI 

RXA 0000A8 

PT 

R»A 

OOSCAC 

DETAl 

R'A 

000050 

BETA2 

Ri*A 

_ 0C005A 

ALPCH 

Ri»A 0C0053 

PHIIBB 

,R*A_ 

00005C 

FHIIDT 

RVA 

000060 

HBAR 

R>-A 

000C6A 

DELTA 

RMA 000068 

OMEGA 

Ri«A 

00006C 

ALF3AR 

R»A 

000070 

V 

R«A 

00007A 







SOURCE. STATEMENT LADELS_ 


LADEL ISN 


LABEL ISN 

ACER 

LABEL 

is;j 

ACO? 

LABEL 

ISN 

ADDR 

10 7 

001293 NR 

20 82 

OOlCAA 

30 

91 

C0192A 

330 

lOA 

0C1AA2 

Ai no 

001,*.6A 

50 lAO 

COICCO NR 

71 

153 

0C1D90 

60 

161 

OOiEOC 

61 162 

001E16 

65 166 

00IE53 

370 

165 

C01F32 

330 

186 

001F5A 

375 200 

0;2036 

335 £01 

0C2CA2 

500 

2A5 

0 02ss C 




COMPILER GE!:: 

IRATEO LABELS 









LABEL lEN 

/DDR 

LABEL ISN 

ADDR 

LA5EL 

ISN 

ADDR 

LABEL 

15N 

ALDR 

100000 1 

00123A 

100001 7 

0012AC 

2C00C1 

17 

001A2C 

10C003 

17 

001A36 

100309 13 

C01A5E 

ICCOlO 19 

OClA-iS 

100011 

20 

001A50 

100012 

21 

001A5A 

100013 22 

C01A62 

lOOClA 23 

001A6C 

10C015 

2A 

C01A7A 

100016 

25 

0C1A7E 

ICCCI7 Zh 

001A25 

100013 29 

OCl/BA 

100319 

30 

OCIACA 

100020 

3S 

OOISFE 

lOOCOl 35 

00161A 

10G022 66 

CC17FA 

100023 

77 

001630 

10302A 

63 

0016DC 

1C0025 £5 

C:i8F2 

100026 67 

OOIlTE 

100027 

92 

001928 

100023 

95 

C019*.l 

1C0C29 1C2 

001A3E 

100030 107 

00 IAEA 

1CC031 

llA 

001A03 

1CC032 

115 

OCIAEC 

100033 1£6 

OCIBIE 

1CCC3A 127 

CC1D22 

1CC035 

130 

OOILDE 

20CC02 

132 

OOIDEE 

ICC036 132 

001CF6 

100037 133 

CCISFE 

100038 

135 

001C12 

109039 

136 

0C7C76 

ICOO'iO 1A6 

001052 

lOOCAl 150 

C01D76 

1000A3 

170 

00 1 E66 

lOOOAA 

171 

001E6A 

10CCA5 177 

C01EE6 

1C00A6 192 

001FE6 

1CC0A7 

206 

0020A2 

1000A8 

207 

0020B2 

20C0C3 217 

0C21F3 

2C00CA 235 

0C237E 







FCPM.AT STATEMENT LABELS 









LABEL is:: 

ADS'? 

LABEL ISN 

ADDR 

LABEL 

ISN 

ADDR 

LABEL 

ISN 

ADDR 

CO 8 

00CC28 

65 10 

OOOC2E 

86 

12 

00003A 

5 

32 

00C03B 

6 3A 

000A6F 

7 36 

C00337 

16 

7A 

0C03C3 

25 

90 

OOOS'Jo NR 

AO 96 

0C05FA 

3A0 103 

0CC611 NR 

36 0 

106 

00062D NR 

117 

120 

00C6A6 

A5 123 

000656 NR 

75 151 

000675 

62 

16A 

0C069E 

66 

172 

OOC6CE NR 

201 133 

0006E3 NR 

202 193 

000716 NR 

100 

216 

0C07AA 

200 

219 

000793 

600 £21 

0007D3 

605 2A1 

0007E6 

610 

2A3 

000326 




N'JMDER LEVEL 


FORTRAN H EXTENDED 

ERROR tlESS.1 

iGES 






IFE029I 

8(E) 

ISN 

0032 

THE 

NUMBER OF CCNTIf.'UATION CARDS EXCEEDS 19. COMPILER PROCESSING OF THE 
STATEMENT CCJJTIN'JES. 

JFE226i~ 

~6TE) 

ISN 

^0119 

THE' 

STATEMENT HAS A VARIABLE WITH MCPE THAN SIX CHARACTERS.' 
THE RIGHTMOST CHARACTERS ARE TRUNCATED. 


»»0?TICNS IN EFFECT<»NAHE(MAIN) 0?TlrlIZE(2) LINECG’JNTC 60 ) SIZE) MAX) AUTCDBLt NOME ) 

^OPTIONS IN EFFECTiiSOURCE EBCDIC NOLIST NCDECK OBJECT MAP KOFORMAT GOSTMT XREF NOALC N0AN5F TERM IBM FLAG) I) 



«VEr<SIC:i 1.3.0 toi may eo) maim SYSTEM/370 fortran H extended (E.MHANCED) date 60.353/15.02.47 PAGE 13 

^STATISTICS* SC'JTCE STATEMENTS = 245, PROGRAM SIZE = 9340, S'JSPROGRAM NAME = MAIN 

*STAT15TIC5* 2 DIAGNOSTICS GE^iERATED, HIGHEST SEVERITY CODE IS 3 

end of CC.NPILATICM *»***». , _ . 5CSK BYTES OF CORE NOT USEO 


DATE 60.35?5/15.02.<i9 


PAGE 1 


^VERSION 1.3.0 (01 MAY 80) SYSTEM/57C FCRTRAN H EXTEMDED ( EKHANCED ) 

RECJESTED OPTICUS: EBCDIC. MAP, MOLIST, NCDECK ,XrEF ,OPT-2 

OPTICUS IN effect: NAME(MAIH) CPTIMIZEtS) LINECC'J:JT( 60 ) SIZE!MAX) AUTODBUNOME) 

SOURCE EBCDIC NOLIST )!ODECK OBJECT MAP HOFORMAT GOSThT XREF MOALC NOANSF TERM IBM FLAG(l) 


ISN 0002 


ISN C003 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DATA SET S066UN3T AT LEVEL OOC AS OF C3/15/80 

DATA SET <:3C6L:;5T AT LEVEL COl AS Or 07/30/80 

DATA SET 9'J66U'i3T_ AT LEVEL 001 AS OF 0'+/21/60 

SUBRCUTINE UN3T 

DECK 9066 CHANNEL FLCN CHOKE FLUTTER UNSTEADY AERODYNAMIC MODEL 

analyst J. F." Sir!"SON ' 

DATE JAN"J.;7Y, 1980 

EXT A315 

MAIL LOC _ R-A7, ELDS 32, F5G _ 


•DEECPIPTIONS- 


B SEr;ic::"o of the airfoil 

Dl density at the inlet 

CD DEl.'SITY DC'::, STREAM 

DTOT TOTAL ci:';:ty 

DU density ufstream 

E ELASTIC /XIS rCSITION REFERENCED TO MIDCHORD 

FLCN_ S.S FLO’.: PATE ENTERIN'S THE SHOCK.^ 

"FRE S.S FLC’I R.'TE AT T.NE EXIT 

G'.'d:a specific ):eat pa, id 

NE;<IT MACH N'-'NEER at th: exit 

MDS M‘CH N'jr'SER CO' " 'ST'':AM 

'mi MACH at the inlet 

MEHCCK mac:-' nj.:ie^ at the chock 

MT ,MACH ):u:a::r at the '■.hpoat 

MVS _ M.'CH F'VHI'P UPSTREAM 

■c::EGA ■ FRE'UEN'CY OF VIF^-ATiCliS 

PE FPISCURE AT THE EXIT 

PD FrESCVTE CC'/NSTFEAM 

PIN FRESCVRE AT THE INLET 

' PTOT ' TOTAL rCCCCL'SE 

FJ FREFCV’E L'l’STRE-AM 

PC- AS GAS cc:':rAi.'T 

sicM.AB _be:.'s:ns :.cde interslace phase angle 

'SIOMAT' TC''5ILN'AL ['.IDE InTE'^DLADE PHASE ANGL^ 

SOEGS SPEED OF SC',. CD DC'.rCT:-EAM 

SC3EX SFEED OF SCVi.'D AT THE EXIT 

SSI SPEED CF 3CLND AT’ THE INLET 

'SST 'SPEED OF SCJHD AT THE TI'ROAT 

S5U SPEED OF SCU::j Ur-STREAM 

TDS TEr:P:RATL'"U CCVNSTREAM 

TE TEMPERATURE AT THE EXIT 

TI TEiMPEPATl'RE AT THE IIILET 

US AXIAL VELOCITY AT THE EXIT 

VE TAN'CE);TIAL velocity at THE EXIT 

VU VELOCITY UPSTREAM 


DIMENSIO_N_FE ( 35 ) , ) ^ ^FC( 572^, FM2i 18 _M( >6 ) , 


00000000 

OOOICOIO 

CPOOOOCO 

COOOOC30 

OCCOCOAO 

COCOC05O 

O0OOCO6O 

00000070 

0C0CC0.30 

ocrooo-^o 
00000100 
OOCOOllO 
00000120 
■00C0013O 
■OOOOOIAO 
•OCOC015O 
C0OOC16O 
0C0CC170 
OOC00130 
0C0CD190 
OOOOC2CO 
C0C0C210 
O0OCO220 
00000230 
G0C0C2A0 
O0COO25O 
00000260 
OCOCOC70 
O0OCO2SO 
00000290 
00000300 
00000310 
OOOOC320 
0C00C320 
000003AO 
OOOCOISO 
0CCC0360 
CC0C0370 
COCOC3SO 
OOC00390 
CCCOCAOO 
CCCOC ilO 
0CCCCA20 
CC000430 
0CC0C440 
OOCOCASO 
CCO0C46O 
OCOOC470 
CCOCC4SO 
00000490 
CC0CC500 
OC000510 
000C0E20 
00CC053O 
00000540 
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“VERSION 1.3.0 (01 MAY SO) 


UNST SYSTEM/370 FORTRAN H EXTENDED (ENHANCED 
CL(39), S(9), LM(2^f), LC(£8), AAR(2), 

AAK2), DAR(2), BAKE), AHR(2), AHK2), 

BHR(2), CHK2) 


ISN 0034 


REAL 


K, 

NOS, 
IMAR, _ 
lUOS, 
ItlAPT, 
MSMOCK, 

IVPU, 

NYU, 

IIAVPI, 


IC, 

MUS, 

. INDP,_ 
IVPD , 
INDFU, 
MT, 

IDDS,_ 

MYD, 

INPPE, 


LC, 

NND , 

. !!!??>._ 
NCPT, 
IMPPU, 
MI, . 

. If’DS, _ 
ir'.FPI, 
INOFE, 


LM, 

MXU, 

, IM5P, 

MIRE, 

IMVPJ, 

M, 

MX STAR, 

IMOPI, 

IMSSPE, 


M'J, 

r;YD, 

.IRFF, 

MERE, 

ISCSU, 

I, 

'iMsspir 

IIAVPE, 


) DATE eo. 353/15. 02. 49 
OOCOQ550 
00C0C560 

00000570 

00000550 
CD, 00000590 
MYU, OO0CC6OO 

.ISE?,._._ 00PO061O 

IMAPI, 00000620 
MSXIT, 00000630 
lACE, 00000640 

. _00000650 

IITVPf, OC000660 
IITVFE, 00000670 






IRAVPc, IRTVPE, IPl'J, IP2U, 

IP3U, 

IPIL 

OCOOC6GO 




•> 

_ IP2L, IP3L, _ICLU, , ICLL. 

_ICL, 

.ICMU 

00000693 





ICML, ICM 



COOC0700 



C 





00000710 

ISN 

0015 


COMMON 

von, VOLE, V0L3, ACE, 

ASTAR, 

E, 

00000720 





AC, AO, nsHOCK, rros, 

_MUS, 

TTOT 

00000730 




*> 

XS, XSTAR, FRESl, FRES2, 

PRES3, 

C, 

00000740 





MIRE, PTOT, BETAl, BETA2, 



00000750 





ALFCH, SIGMAB, SIGMAT, H, 

DELTA, 


00000760 




*> 

CMEGA, ALF3AR, UlIRE 



00000770. 



C 





CCC0C78C 

ISN 

0006 


READ(5,1000) MERE 



O0OCO79O 

ISN 

0007 


MEXIT = M2RE«COS(ALPCH - BETA2) 



OOOOCCOO 

15H 

_ooqo 

1000 FORMAKFIO. 

0) 



0Q000310. 



C 





00000520 



C 





0C00CS30 

ISN 

0009 


B = 

C/2.0 



OCOO0C4O 



C 





OOOC0350. 



c' 

nANDIMENSION’ALi 

ZE TAU 



COC00060 

ISN 

0010 


TAU = 

DELTA 



00000370 

ISN 

coil 


TAU = 

TAU/B 



OC0003SO 



C 





0CC0C390. 



c 

DEFINE QUANTITIES USED FREQUENTLY IN CALCULATUIONS 



00000900' 



c 





00000910 

ISN 

0012 


PI = 

3.141592653539800 



00000920 

ICN 

0013 


MT = 

1.0 



00000930 

I'JN 

0014 


MI = 

MIRE 



O0CO094O' 

is;,’ 

C015 


GAMMA = 

1.4 



00000^50 

lEII 

C016 


MXSTAR = 

1.0 



0CC00960 

lEN 

0017 


2 = 

B»*( 1 + E )/C 



OCC00970 

ISii 

L'015 


RCAS" = 

1716.26 



OOC00930' 

ISN 

0019 


DTOT = 

PTOT/( RGAS*TTOT )“144 . 0 



00000990 

IC'N 

0C20 


I = 

CCS( ALFSH-DETAl) 



00001000 

_ ISN 

C021 


K = 

c/2*g;:ega/uiire/ie.o 



00001010 

“ 13:: 

0022 


HRITE(6,95 

K 



00001020" 

IS'i 

0023 


95 FCRMAT(//' 

KVE15.6 ) 



00001030 

ISN 

0224 


FU = 

PTOTi< ( 1 + ( GAMMA-1 )/2«M3HOCX““2 )““( -GArm/( GAMMA-1 ) ) 

O0CC1O4O 

ISN 

0025 


PT = 

PTOT“( l + ( GAMMA-1 )/2«MT>f^2 )«“( -GAMMA/( GAM.MA-l ) ) 


O0CO1O5O 

ISN 

0026 


PIN = 

PTOTiK l + ( GAf.:iA-l )“»*( -GAMMA/( GAMMA-1 ) ) 


00001060 

ISN 

0C27 


TIN = 

TTOT/(l+ ( GAMMA-1 )/2“MI«“2 ) 



00001070 

ISN 

0023 


DI = 

PIt,'/(RGAS»TIN)>144 



00001030 

ISN 

0029 


PD = 

PU“( l+2“GAMMA/( GAMMA+1 )“( MUS““2-1 ) ) 



00001090 

Z is)i 

'0030 


TDS =■ 

TTOT/( l + ( GAMMA-1 )/2«MDS«i<2 ) 



00001100 

ISN 

0031 


OD = 

PD/(RGAS*T0S)“144 



00001110 

ISN 

0032 


CU = 

DTOT“( l+( GAMMA-1 )/2“MSHOCK““2 )““( -l/( GAMMA-1 ) ) 


00001120 


00001130 


PAGE 2 
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^VERSION 1.5.0 


(01 HAY 80) 
C 


UNST 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


ISN 

0033 



CO = 

SIGM.A3/TAU 


IS!) 

0034 



MD = 

M20E«C0S(ALPCH-BETA2) 


IS!J 

0055 



)!U = 

M1R£>!CCS( ALFCH-BETAl ) 


ISM 

0036 



MXD = 

MCRES-CCSt ALPCH-BETA2 )»SIM( ALPCH ) 


ISM 

0037 



MXU = 

rilRE':CC3( ALPCH-DETAl )i»SIN( ALPCK ) 


ISM 

0033 



MYD = 

M2RE-CQS( ALPCH-BETA2 )«COS( ALPCH ) 


ISM 

0039 



MYU = 

M1RE?C0S( ALPCH-BETA2 )^OS( ALPCH ) 


ISM 

0040 



BXU = 

l-MXUi^H2 


ISM 

0041 



EXD = 

l-tlXD»»»2 


ISM 

0042 



BYU = 

1-MYU»»2 


ISM 

0043 



BYD = 

l-MYD»i»f2 


ISM 

0044 



DIU = 

MX'J>‘M'J>iKtMXU»(MYU^!CO 


ISM 

0045 



DID = 

MXD!*MDi‘:K4MXD^MYD*CO 


ISM 

0045 



D2U = 

K*<<2«r;U'*»2+2«MUXMYU*CO>‘K-CO»»2kBYU 


ISM 

0047 



D2D = 

K*»2»;|;D!«>2+2«!!0*^MYD»;C0kK-C0«»2»BYD 


ISM 00^3 



(3UA!)T = 

D1U«»2+BXUXD2U 


ISM 

0049 



IF(C’JANT 

.GT.O) GOTO 60 


IS!) 

t!C51 



Hr>ITE(6,: 

71) 


IS!) 

0052 


71 

FORMAT ( 

• ‘UPSTREAM SOLUTION NUMBER 1‘ ) 


IS!) 

0053 



BlI = 

-SQRT( -(D1U«»2+BXU«D2U) )/BXU 


ISM 

0054 



BIR = 

D1U/3XU 


ISM 

0055 



GOTO 90 



ISM 

00.56 


60 

WRITE(6»75) 


ISM 

0057 


75 

FORMAT( • 

*, ‘UPSTREAM SOLUTION NUMBER 2‘) 


ISM 

0053 



GlIAMT = 

M‘J>K+MYUKCO 


ISM 

0059 



IF(QUAMT 

.GT.O) GOTO 34 


ISM 

0061 



BIR = 

(DlU-SCRT(DlUf»2+BXU«02U))/BXU 


ISM 

0062 



BlI = 

(MYU«CO+MU>!K)/MXU 


ISM 

0063 



GOTO 90 



IS!) 

0064 


64 

BIR = 

( D1U+SQRT( DlU»nf2+8XU)*D2U ) )/BXU 


ISM 

0065 



BlI = 

-(MYU«CO*MU»K)/MXU 


ISM 

0066 


90 

G'JANT = DlD*^2+BXD>fD2D 


IS!) 

0057 



IF (QUANT, 

.GT.O) GOTO 91 


ICN 

0069 



KRITE(6,76) 


IS!) 

0070 


76 

FCRMAT( ‘ 

‘,’DC;:!!STREAM SOLUTION NUMBER 1‘) 


IS!) 

0071 



B2I = 

SCRT( -(D1D»*2+BXDXD2D ) )/BXD 


ISM 

0072 



B2R = 

D1D/3XD 


IS!) 

0073 



GOTO 99 



ISM 

0074 


91 

Q'J'.MT = 

MD*K+MYDHCO 


ISM 

0075 



(.'RITE (6, 78) 


ISM 

0076 


76 

FCRMAT( ' 

‘OCUMSTREAM SOLUTION NUMBER 2‘) 


ISM 

0077 



IF (QUANT. 

.GT.O) GOTO 94 


13M 

0079 



B2R = 

(D10+SQRT( DlD^vE+BXDMDCD ) )/BXO 


ISM 

0080 



B2I = 

-(MYDi<CO+MD"K)/t!XD 


ISM 

COCl 



GOTO 99 



ISM 

0082 


94 

BCR = 

( DID-SQRK D1D»*2+BXD»020 ) )/BXD 


ISM 

0083 

C 


B2I = 

(MYD^CO+r!D<»K)/MXD 


IsM 

0084 


99 

K = 

K 12 


ISM 

0035 



PE = 

PTOT-M 1 + ( GAMMA-1 )/2«MEXIT»»2 )»*( -GAMMA/( GAM)1A-1 ) ) 


ISM 

0086 



TE = 

TTOT/( l + ( GAMMA-1 )/2<<MEXIT»»2 ) 


ISM 

0087 



DE = 

PE/(RGAS-*TE)«144 


ISN 

0033 



SOSEX = 

SQRT( GA1;MAXR5AS*TT0T/( l+( GAMMA-1 )/2«MEXIT»*»2 ) ) 



0089 



REV = 

M2RE » SOSEX 


ISM 

0090 



VE = 

REV>>C0S(ALPCH-BETA2)*C0S(ALPCH) 


ISN 

0091 



UE = 

REV»COS(ALPCH-BETA2 )<*SIN( ALPCH ) 



DATE 80.353/15.02.49 
00001140 
00001150 

00001160 ______ 

00001170 
00001160 
00001190 

00001200 

00C01210 
00C01220 
00001230 

.00001240 

00001250 
00001260 
00001270 

03001260 

00001290 
00001300 
00001310 

00001320 

00001530 
00001340 
00001350 

00001360 

00001370 
00001380 
00001390 

00001400 

00001410 
00001420 
00001430 

00001440 

00001450 
00001460 
00001470 

00001480 

00001490’ 

00001500 
00001510 

00001520 

00001530 
00001540 
00001550 

00001560 

00001570 
00001580 
00001590 
00001600 
00001610 
00001620 
00001630 

00001640 

00001650 
00001660 
00001670 

00001680 

00001690 
00001700 
00001710 
00001720 


PAGE 


CO 

o 


^»VERSIC^^ 1.3.0 
I3;i CC92 
ISM C0?3 

ISM C09't 

ISM C073 
ISM 0096 
ISM 0097 

ISM C0?3 

ISM C099 
ISM 0100 
ISM ClOl 

ISM 0102 

ISM 0105 
ISM OlO'i 
ISl: 01C5 

ISM C1C6 

ISM 0107 ■ 
ISM C106 
ISM OlO? 
ISW 0110 

ISM cm' 

ISM 0112 
ISM 0113 


ISM 011<i 
ISM 0115 
IGH 0116_ 
'ism 0117 
ISM 0113 

JSM_011<^ 

ISM 0120 

ISM 0121 


UNST SYSTEM/370 FORTRAN H EXTEMCED (ENHANCED) 
REV 
0.0 

_ SSRTl GA,MMA^<RGAG^'TTOT/( l + ( GAMMA-1 )/2»^MIi<«2 ) ) 

SSRT!G.M::iA^RGAS»(TTCT/(H-(GAt!:iA-l)/2«nXSTAR>i»2) ) 
SCRT(GA!illA'^RGA5«TTOT/( li-( GAM;iA-l)/2XMDSii»2 ) ) 
SS;1T(G..'.".M.\vr:GAS*TT0T/(l + (GAt:MA-l)/2»fMUS»»'2) ) 

MUS'SSU _ 

■ MSS^fSSSDS 

VD;tA0“'DD/(DI^<UlIREi*ASTAR) 

(SSI+G3T)/2.0 

_ DTOTKf H-( GAMMA-l )/2*MXSTAR*)t2 -l/( GAMMA-1 ) ) 
(DI+DT)/2.0 
(OT+DU)/2.0 
(DDrDE )/2.0 

_ lUlIREv-CCSI ALPCH-BETAl)+SST)/2.0 

(S3T+VU)/2.0 

(VD+REV>.COSCALFCH-DETA2) )/2.0 
REV/UlIRE 

_ UlirE'COSf ALFCH-BETAl )^SIM( ALPCH ) 

UlIREi‘CCS( ALFCH-BETAl )»C0S( ALFCH ) 


L'RITE(6,1C0) 

JOO FO-^11.AT( ,T37, 'IMLET' ,T51 , ' THROATJ_,T66 ,_^UPSTREAMJ_,TSI 

'DCM .'STEAM' ,T96, 'EXIT' ) 

MRITE ( 6 , 1 C 5 ) MI , MT , M'J3 , MS 3 , MEXIT 
■r(RIT£(6,115) FIM,PT,FU,F3,FE 

l!RITE(6,110) Dl,0T,CU,CO,DE 

).’RITE(6,1Z 



:0) SSI,SDT,SS'J,33G0S,S0SEX 
105 FCRMAT( 'O' , 'M.ACH M'JM3ER ' , T32 , G14 . 7,TA7,F14. 7 ,T62 , Fl^*. 7.T77, F14. 7, 
7 T92.F14.7) 

_110_ FORMAT( '0' , 'DE.'iSITY' ,T32 , F14 . 7 ,T47, F14 . 7.T62 , F14. 7_,T77,F14. 7, 

? T92.F14.7) ' 

115 FORMAK 'O' , 'FHESSURE' ,T32,F14.7,T50,F14.7,T62,F14.7,T77,F14.7, 

? T92.F14.7) 

_120_ FORMAKJ O' , 'SPEED OF SOUt.D ' ,T32 , F14. 7,T47,F14 . 7,T 62 , F14 ■ 7,T7 7, 

'■ ? ' F14.7,T92,F14.7) 

: NCMDIMEMSI0MALI2E ALL QUANTITIES 


DIVIDE ALL THE DEtlSITIES BY THE INLET DENSITY 


DATE 30.353/15,02.49 
0PC01730 
OC001740 

00001750 

00001760 

00001770 

00001730 

00001790 

00001800 

00001310 

00001320 

00001830 

00001640 

00001650 

00001660 

00001370 

00C01S60 

CC001C90 

0COC19OO 

C0001910 

C0001920 

0C001930 

OC001940 

00001950 

00001960 

00001970 

00001930 

OOC01990 

CO0C2OOO 
00002010 
OOC02OSO 

00002030 

00002040 
00002050 
00C02060 

00002070 

00002080 
00C02090 
00002100 

0CC0211O 

00002120 
00002130 


PAGE 


I5!l 

0122 


DU 

= 

DU/DI 


00002140 

ISM 

C123 


no 

= 

CD/DI 


OCC02150 

ISM 

0124 


DE 

= 

CE/DI 


OC002160 

ISM 

0125 


DT 

= 

DT/DI 


00002170 

ISM' 

0126 


DTOT 

= 

DTCT/DI 


0C002180 

ISM 

0127 


AVGDl 


AVC31/DI 


OOC0219O 

ISM 

0123 


AVC-D2 

= 

A’.3D2/DI 


00002200 

ISN 

0129 


AVG33 

= 

AVGD3/DI 


C0OC221O 



C 





00002220 



C 

PUT PRESSURE 

IN P-S-F UNITS AND DIVIDE BY 

(INLET DENSITY»HNLET 

00002230 



C 

VELOCITY) 




00002240 



C 





00002250 

ISM 

0130 


PIN 

= 

PINi^l44. 0/( DI“U1IRE«X2 ) 


00002260 

ISN 

0131 


PU 

= 

PU'144.0/(DI«UlIR£"+i2) 


00C02270 

ISM 

0132 


FO 

= 

P0«144.0/(Ol«UlIREt^«2) 


000 02^30 

ISM 

0133 


PE 

= 

PE*^144.0/(DI>fUlIR5-«2) 


00002290 

ISM 

0134 


PT 

= 

PT^tl44.0/(DIvUlIR£-»2) 


00002300 

ISN 

0135 


PTOT 

= 

PT0T*144. 0/( DI«UlIREif»«2 ) 


00002310 
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UVERSICH 1.5.0 
ISU 0126 
ISJJ C137 
ISn 0133 


(01 MAY 80) UN5T 

PRESl = FRESl^'l' 

PRESS = FRESS^H' 

PRES3 _=_ PRES3*!' 

C 

C DIVIDE ALL VELOCITIES 


UN5T , SYSTEM/570 FORTRAN H EXTENDED (ENHANCED) DATE 80.553/15.02.49 
FRESl»'144.0/(DI^'UlIR£*;>f2) OOOOS3SO 

FRESS;n4^.0/(DlitUlIPE^‘^*2) 0CC0233O 

_ PRES3*144.0/(Dl^(UllRE«»fS) 0C00S340 

CCOOS550 

)D THE SPEED OF SOUNDS BY THE INLET VELOCITY C0002360 

00C0S370 


ISN 

0139 


SSI = 

S5I/U1IRE 

00002330 




‘IGN 

0140 


SST ' = 

SST/UliTE 

000C2390 




ISN 

0141 


SOSEX = 

SOSEX/UlIRE 

00002400 




ISN 

0142 


5C3DS = 

SC2DS/U1IRE 

00002410 




I5!l 

0143 


S5U = 

SSU/UlIRE 

00002420 




ISl! 

0144 


AVGSOS '= 

AVr-SSS/UlIRE 

00002430 




ISN 

3145 


VE = 

VE/UITRE 

00002440 




ISN 

0146 


UE = 

UE/UIIFE 

00002450 




ISN 

0147 


VU = 

VU/UIIKE 

00003^60 




ISN 

0143 


VQ ■ = 

VQ/UlIRE 

00002470 




ISN 

0149 


AV5V1 = 

AVGVI/UIIRE 

00002430 




ISN 

0150 


AVGV2 = 

AVGV2/U1IRE 

00002490 




ISN 

0151 


AV3V3 = 

AVGV3/U1IRE 

0C0C2E00 




12N 

C152 


VELAX = 

VELAX/UlIRE 

0C002S10 




ISN 

0153 


VEL = 

VcL/UllRE 

CC002520 




ISN 

0154 


U2IRE = 

U21RS/U1IRE 

OCC02530 






C 



00002540 






'c 

UN0IMENSICNALI2E THE VOLUMES 

C0002550 






c 



00002560 




ISN 

0155 


VOLl = 

V0L1/(ASTAR»*B) 

00002570 




IS)( 

0156 


VOL2 = 

VOL2/CASTAR«B) 

00002580 




ISN 

0157 


VOL3 ' = 

V0L3/(A5TAR>iB) 

C05C2590 






C 



00002600 






c 

UNDINENSIONALIZE THE AREAS 

00002610 






c 



CC002620 




ISN 

'0153 


ACE = 

ACE/ASTAR 

00002630 




ISN 

0159 


AC = 

AC/ASTAR 

OCOOCo^O 




ISN 

0160 


AO = 

AO/ASTAR 

000GC650 





ISN 0161 
ISN 0162 
ISN 0163 


INTERBLADE ANALYSIS OF SECTION 1 


DUKAO"VU 

DE^'ACE^USIRE 

SSIx»2/( GAMMAK( GAMNA-1 ) )+( ( COS( ALPCH-BETAl ) )»»2 )/2 

“( GAt;:iA x»2-GAMf1A+2 )/( 2«( GAMHA^K GAMMA-l ) ) )*SST*ir2 

-FE ( 1 ) « I)»AC'< VE LAX/( CO^TAUH SSUH* 2 ) +FE ( 1 ) «AC 
*SItJ( ALPCH )/( CO>T/.'J l-2»AC*I*VELAX/( 2«GAMHA«CO* 

TAU) + AC»fI>iK2«SIN( ALPCH)/(CO^TAU) 

-FE( 1 )»1KAC*M K+COi«VEL )/(CO»TA'JKSST«»2 ) + ( FE(1 )*AC 
«CGS( ALPCH ) )/TAU-2>*ACwi»( K+CC»VEL )/( 2^<GA)!MA 
■^<CO»TAU ) + ( AC*l^'i(2J<COS( ALPCH ) )/TAU 

(-VOLl»AVGSOS>«*2«VELAX)/(2»GAMMA?K GAMMA-1 )+(CO»TAU 

_>fSSI*)f2 )-AVG503>tAVGDlWOLl/GAMMA/( 2»SSI»CO»TAU) 

*VE LAX- ( VOLl-AVGV15*«2»tVELAX )/( 4*CO»TAU«SSI«t*2 )' 

+ tAVGVl<tAVGDl*VOLl«SIN( ALPCH) )/( 2*CO**TAU) 

(-VOLl»AVGSOS«*2*(K+CO»VEL))/(2«GAMMA»*(GAMriA-l) 


00002660 
'00002670 ' 
00002660 
00002690 
00002700 
' 00002710' 
00002720 
00002730 
00002740 
’00002750“ 
00002760 
00002770 
00O027S0 
’00002790' 
00002800 
00002810 
00002320 
'03002630' 
00002040 
00002850 
C0002360 
'00002370' 
00002330 
00002890 
00002900 
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»<C0'^TAU*:5SI>'«2 )-AVGSOSXAVGDl"VOLl/CAN!U/'( 21*551 

00002910 




•> 

♦ CC>^TAU)w(K + C0;*7EL) + (V0L1>^AVGV1ki*2 )/4!M K + C0»*VEL )/ 

00002920 




> 

(CC«TAU-SSI*«2 )tAVG\'l>^AVGDlKVOLli‘C03(ALPCH )/(2»TAU) 

00002930 



c 



0CCC2940 


I5N 0169 


FE(7) = 

C05(C0^*TA'J)-1 

00002950 



c 



00002960 


ISN 0170 


FE(S) = 

FE( 3)i< (FE( 7)-'BlR-31I»'SIM(CO“TAU) ) + FE(4)kFE( 7) + FE(5) 

0C0C2970 




0 

>Ki»!51Ii'FE( 7 liBlR^SIN(CO'iTAU) )+FE(6 )XKiiSIN(CO»TAU) 

00002930 



c 



00002990 


ISM 0171 


FE(9) = 

-FE( 3)**(FE( 7)i 31I + r.;lP‘*StN(CO!*TAU) )-FE(4)ii5IN(C0S*TAU) + 

00003000 




7 

FE(5)"!<»(D1R*FE( 7)-DlI*51M( CO**TAU ) ) + FE( 6 )«K«FE( 7 ) 

00003010 



c 



030C3020 


ISM 0172 


FE(IO) = 

FE( 3)i'(BlIi*FC( 7)+BlR“3IN(CO*fTAU) ) + FE( 4 ) vslN( CO*t 

00003030 




7 

TA’J)-FE(5)>(KifSlR'FE(7)-K*ElI-SIN(C0»TAUn 

OCOC1O40 




7 

-FE(6 )i'XifFE(7) 

OC003050 



c 



OC003060 


ISN 0173 


FE(ll) = 

FE( 3 )*( E1R»*FE( 7 )-BII»SIN( CO^TAU ) ) + FE( 4 )l*FE( 7 ) 

00003070 




7 

+ FE(5)*<(K,i‘DlI«rE( 7)+X>'BlRi<SIM(COt(TAU) ) + FE(6) 

00003060 




7 

i-K»3IN(C0-;TAU) 

00003090 



c 



CC003100 


ISM 0174 


FE(12) = 

VCLl * AVGS05>i>f2»i K/12 / ( 2i*GAMMA»f( GAMMA-1 )) + 

00CC3110 




7 

VOLl ^ A'.'GVln*’ * K/12 / 4 

00003120 



c 



00003130 


ISM 0175 


FE(13) = 

K/12 * AVGDl « AVGCOSMH2 / (GAMMA »* (GAMMA-1) ) + 

00003140 




7 

K/12 It AVGOl * AVGV1KX2 / 2 

00QO3150 



c 



00003160 


ISM 0176 


FE(14) = 

AVG503 If AVGDl * AVCVl / (GAMMA « (GAMMA - 1 ) ) 

00003170 




7 

K/12 + AVGVl « AVCDl >f VOLl * K/12 / 2 

OC003130 


ISM 0177 


FE(15) = 

FE(9)/F£18)-FE(11 )/FE(10) 

00003190 



c 



00003200 


ISN 0176 


FE(16) = 

FE(l)/ri:(8)ifI>*(FE(9)/FE(S)/FE(15)-l) 

00003210 



c 



00003220 


ISM 0179 


FE(17) = 

-FE(8)/rE(9)ifFE(l )/FE(10)ifI/FE(15) 

0CC03230 



c 



00003240 


ISM 0160 


FE(ie) = 

FE( 2)/FE(S)i*(S5T-S3T/FE(15)ifFE(9)/FE(8))-FE(12)/ 

00003250 




7 

( FE( 10 )ifTE( IS ) )>fFEl 9)/FE( 8) 

00003260 



c 



00003270 


ISM 0J61 


FEU9) = 

-FE(12)/FE(8)+FE(2)ffSST/(FE(10)ifFE(15))>fFE(9)/FE(a) + 

00003280 




7 

FEa2)/(FE(3)KrE(15) )»FE(9)/FE(8) 

00003290 



c 



C0003300 


ISM 0162 


FE(20) = 

FE( 2 )/FE( 0 )“DT;fSST-FE( 2 )f'OT»fSST/( FE( 8 )kFE( 15 ) 

00003310 




7 

FE(9)/FE(S) 

C0003320 



c 



00003330 


ICli dl33 


FE(21) = 

FE(2)»iDT>fSST/(FE(10)ifFE(15) )VFE(9)/FE(8) 

00003340 



c 



00CC3350 


ISM 0164 


FE(22) = 

3>fFE(2)/rE(S)*MDT-DT/FE(15))fFE(9)/FE(8))-FE(14)/ 

00003360 




7 

(FE(1C )'fFE(I5) )'•■££( 9 )/F£(S) 

000033~0 



c 



00C033S0 


ISM 0185 


FE(23) = 

-FE(14)/FE(Q) + (FE(2);<3*f0Ti<FE(9)/(FE(10)»FE(15)*FE(8)) ) + 0C003390 




7 

FE( 14 )KFE( 9)/( FE(8)if*2«FE( 15 ) ) 

0CC034C0 



c 



00003410 


ISM 0166 


FE(24) = 

-FE(13)/FE(C)+FE(13)/(FE(8)xfE(15) )»FE(9)/FE(8) 

COC03420 



c 



00003430 


ISN 0187 


FEC25) = 

-F£(13)/(FE(10)KFE(15))*rE(9)/FE(8) 

00003440 



c 



00003450 


- isjrolea 


FE(26r'= 

-FE(l)»l/(FE(8)ifFE(15)) 

00003460 



c 



00003470 


ISN 0:S9 


FE(27) = 

FE(1)/(FE(10)»FE(15) ) 

00003430 



c 



00Q0349Q 
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HAY 80) 

UMST SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 80.353/15, 

ISN 

0190 


FE(28) = 

FE(2)*SST/(FE(&)«FE(15nvFE(12)/(FE(10)+^FE(15)) 

00003500 



C 



00003510 

ISN 

0191 


FE(29) = 

-FE(2)!*SST/(FE(10)'fFE(15))-FE(12)/(FE(8)»F£(15)) 

00003520 



C 



00003530 

ISM 

0192 


FE(30) = 

FE( 2 )*SST«DT/( FE( 8 )»•££( 15 ) ) 

00C03540 



C 



C00C3550 

ISM 

0193 


FE(31) = 

-FE(2)»S5TvDT/(FE(10 )i«FE(15) ) 

0CC0!5560 



C 



OCC03370 

ISN 

0194 


FE(32) = 

3:<3T»FE( 2 )/( FE( 3)f(FE( 15) )+FE( 14)/( FE( 10 )»fFE( 15) ) 

00003560 



c 



00003590 

ISM 

0195 


FE(33) = 

-3*DT^fFE(2)/(FE(10)i<FE(15))-FE(14)/(FE(8)*FE(15)) 

00003600 



c 



00003610 

ISN 

0196 


FE(34) = 

-FE(13)/(FE(8)*FE(15) ) 

00003620 



c 



00003630 

ISM 

0197 


FE(35) = 

FE(13)/(FE(10)i^FE(15)) 

00003640 



c 



00003650 



c 



00003660 

ISN 

019S 


FH(1) = 

-VELAX^AC/( CO'fTA'J ) -VE LAX»AC»I^'»2/( CO*fTAU*»SSI»m2 ) + 

00003670 





2^^AC^«SINt ALPCH )»!/( CO>fTAU ) 

00003630 



c 



OOCC3690 

ISN 

0199 


FM(2) = 

-(K + CO»VEL)*AC/(CO>fTAU)-(K+CO*VEL)»AC*I»n*2/(CO»tTAU* 

00003700 




7 

SSI»«2 ) + 2*AC?<COS( ALFCH )»fI/TAU 

00003710 



c 



00003720 

ISM 

C£00 


F(1(3) = 

AVGVli‘VOLl«VELAX/(2KCO*TAU^fSSI**2)-AVGDl*tVOLl» 

00003730 




7 

SI1J( ALPCH )/( 2*COVTAU) 

CC003740 



c 



00005750 

ISM 

0201 


Ftt(4) = 

( K+CCKVEL )/( C0>‘TAUVSSI««2 j^AVGVl^VOLl/a-AVGDWOLl/a* 

00005760 




7 

COS( ALPCH )/TAU 

CC005770 



c 



00003730 

ISM 

0202 


FH(5) = 

-PIM-I^•»2 

00003790 



c 



00003300 

isr; 

0203 


F!1(6) = 

PT+SST»i<2»DT 

00003810 



c 



CCC03320 

ISM 

3204 


Fri(7) = 

FM(1)«(81R«FE(7)-B1I'SIN(C0>«TAU) ) + FM(2)«»FE(7)-FM(3)» 

C0003330 




7 

( K«Bll^<FE { 7 ) -K*B1R !‘SIN( CO'TAU ) ) -FM( 4 )^»K»‘SIN( CO^TAU ) 

00003340 



c 



00003C50 

IStJ 

0205 


FM(3) = 

-FM(1)»(E1I^<FE(7)+B1R*SIN(C0«TAU) )-FM(2)^<SIN(CO*TAU) + 

00003360 




7 

FM(3)»:|<»( -D1R‘'<FE( 71 + BlI»fSIM(CC»TAU) )-FM(4)>K«FE(7) 

OC003370 



c 



OCC03C30 

ISM 

0206 


Ft1(9) = 

FMtl )«(E1I*FE(7)+B1R>SIN(COvTAU) )+Fri(L')«SIN(CO«TAU) + 

C0003390 




7 

FMC3)'‘K»(01R»(FE( 7)-BlI^SIN(C0"TAU))+FM(4)»FE(7)»K 

0CC03900 



c 



C0003910 

ISN 

0207 


FM(IO) = 

FM(l)i‘(BlRifFE(7)-BlIKSIN(C0VTAU) ) + FM(2)»fFE(7)- 

00003920 




7 

FM( 3 )-K^( D1I*FE( 7 )iBlR«SIN( CO»TAU ) )-FM( 4 )*K* 

00003950 




7 

SIN(CO»TAU) 

00003940 



c 



00003950 

ISM 

0208 


FH(ll) = 

FE( 16 ):*FM( 7 )-+F,M( 8 )*^FE( 23 )-2»SST»« 

00003950 



c 



00003970 

ISM 

0209 


Fn(l2) = 

FMt7) » FE(19) + FMI8) » FE(29) + AVGVl •* 

00003930 




7 

VOLl * K/12 /2 

0OCO399O 



c 



OOOC4COO 

iSM 

0210 


FH(13) = 

-FM( 7)«FE( 16 )-FMl8 )«FE( 26 )+FM(5) 

00004010 



c 



00004020 

ISN 

0211 


FM(14) = 

-Ft« 7 )»iFE( 17)-FM( &)^«FE( 27 ) 

00CC4030 



c 



00004040 

ISN 

0212 


FM(15) = 

-FM(7)t‘FEC20>-FM(8)«FE( 30)+Ft1(6) 

00004050 



c 



00004060 

ISN 

0213 


FM(16) = 

-FM( 7 )»FE( 21 )-FM( 8 )*FE( 31 ) 

00004070 



c 



00004080 
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ISJ4 021^ 


FM(17) = 

-FM( 7) <FE( 22 )-FMt 8 )*FE( 32 ) + 2«5STi<DT 

00004090 




C 



0QCC41C0 



ISM 0215 


FM(18) = 

-Fi‘':t7) » FE(23) - FMO) a FE(33) -AVGDl * 

O0OC411O 






VOLl * K/12 / 2 

0C004120 




C 



00004130 



ISM C216 


FM(19) = 

-FIK7) » FE(24) - FMO) FE(34) - AVGDl ^ 

00004140 





•> 

AVGVl * K/12 

00004150 




C 



0C004160 



ISM 0217 


FM(20) = 

-FM( 7)»FE( 25 )-FM(8 )»F£( 35) 

00004170 




C 



00004130 



ISM 02ia 


FM(21) = 

FM(9) * FE(18) + FM(IO) FE(23) - AVGVl ti 

00004190 





*> 

VOLl * K/12 / 2 

00004200 




C 



00004210 



ISM 0219 


Fr;(22) = 

FMl 9)*‘FE(19) + FM(10 )»<££( 29 )-2»(5ST»(»2 

00004220 




c 



00004230 



ISM 0220 


F,*1(23) = 

-FM(9)i«FE( 16 )“FM( 10 )i<FE( 26) + FM(5) 

C0004240 




c 



00004250 



ISM 0221 


FMC24) = 

-FEI17)»FM(9)-FM(10)*FE(27)+FM(6) 

03004260 




c 



00004270 



ISM 0222 


FM(25) = 

-FM( 9)^*FE( 20 )-FM! 10 )<>FE( 30 ) 

00004220 




c 



000G4290 



IS?J 0223 


Fri(26) = 

-FM! 9)»FE(21)-FM(10)*FE(31) 

OCOC430O 




c 



00004310 



ISM 022^ 


Fi1(27) = 

-FM19) ^ FE(22) - FM(IO) ^ FE(32) + AVGDl » 

0CCO432O 





*> 

VOLl ■* K/12 / 2 

00004330 




c 



00004340 



ISM C225 


FM(23) = 

-FM(9)XFE(23)-FM(10 )«FE(33) + 2»*SST«QT 

00004350 




c 



OC004360 



ISM 0226 


FM!29) = 

-FMC 9)vfe( 24)-FM(10)»FE< 34) 

00C04570 




c 



00004330 



ISM 0227 


FM130) = 

-.•^Mt?) » FE(25) - rM(lC) « FE(35) + AVGDl » 

00004390 





7 

AVGVl K/12 

00004400 




c 



00004410 



ISM' 0228 


FN(3I) = 

FM( 11)-FM(12)«FM(21)/FM(22) 

00004420 




c 



00004430 



ISM 0229 


C’JOT = 

F::(12)/FM(22) 

0 0 CC'i 0 



ISM 0230 


DO 10 

J=32,37 

00004450 



ISM 0231 


FfitJ) = 

( FM( J-19 )-qU0T»FM( J-9 ) )/FM( 31 ) 

00004460 



ISM 0232 

10 

CCMTIML'S 


00004470 




c 



O00C446O 



ISM 0233 


FM(38) = 

( FM( 19 )-QU0T>*FM( 29 ) )/FM( 31 ) 

00004490 




c 



00004500 



ISfi 023^* 


Ft1(39) = 

( FtU 20 )-0’JOT«FM( 30 ) )/FM( 31 ) 

00C04510 




c 



00004520 



ISM 0235 


DO 20 

J=40,47 

CC304530 



ISM’ 02 36 


FIMJ) = 

(FM( J-27)-FM( J-8)*FM(11))/FM(12) 

OC004540 



ISM 0257 

20 

CCMTIM'JE 


0C0C4550 




c 



COC04560 




c 



C0C04570 



ISM 0233 


FC(1) = 

-AC*SIM( ALPCH )/( CC»TAU) + V2LAX«AC*I/(CO»TAU'‘SSI»nf2) 

000045SO 




c 



C0004S90 



ISM 0239 


FC(2) = 

-AC»C05( ALFCH )/TAU^ 1 K i CO»;VEU+f AC*iI/( CO«TAU»S5I^»;2 ) 

00GC4600 




c 



CC004610 



15M C2'i0 


FC(3) = 

VCLl/2«VELAX/{ CC^fTAUKSSI»*2 ) 

00004620 




c 



00004630 



- I5N 0241 


FC(4) = 

V0L1W( K + COWEL )/( CO^fTAU«SGI»«2 )/2 

00004640 




c 



00004650 



ISM 0242 


FC(5) = 

FC( 1 )’*31R»fFE( 7 )-FC( 1 )’'311«SIM( COITAL) ) + FC( 2 )^»FE( 7) 

00004660 





7 

+ FC( 3 )»-Ki^31I"FE( 7 ) + FC( SjifBlR^iSINC CO»TAU )*K+FCC4 )* 

00004670 
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*> 

K«S1M(C0»TAU) 

00004680 


C 


0C004690 

ISM 0243 

FC(6) = 

-FC( I !»31I’‘FE( 71'FC( 1 )»BIR»»SIN( CO»TAU)-FC( 2 

00004700 


7 

SIM[C0«T;,U) + FC( 3)-:'>31RvFE(7)-FC(3)i«Ki‘Bll)* 

00004710 



SIM( CC'TA’J ) tFCf 4 ) -X-r H . 7 ) 

CC0C4720 


C 


C0004730 

ISM 0244 

FC(7) = 

FC(5)JfFSl 16) + FC!6)''FE(26)-I 

00004740 

ISM C245 

FC(8) = 

FCI 5!>FS( 17)+FS16 ) -rsi27 ) 

OCOC4750 

ISM 0246 

FC(9) = 

FC(5)*FE(18)+FC(6)^'FE( 23) + SST 

C0004760 

ISM 0247 

FC(IO) = 

FC(5) « FE(19) + FC(6) » FE(29)- K/12 * VOLl /2 

OOOC4770 

ISM C248 

FC(ll) = 

FC(5)»^FE( 20 ) + FC( 6 )*FE( 30 )+DT>SST 

OC004780 

ISM 0249 

FC(12» = 

FCf5)>FE(21 J + FC(6 )>=FE( 31) 

00004790 

ISM C250 

FC(13> = 

FC(5)^FE( 22 )+FE(6)'FE( 32 )+DT 

OOCC■^2^0O 

ISM 0251 

FC(I4> = 

FC(5)^Fc(23) + FC(6 )^‘FE( 33) 

00024310 

13M 0252 

FCtl5) = 

FC(5) « Fct24) + FC(6 1 FE134)- K/12 AVGOl 

OC004020 

is:; 0253 

FC(16) = 

FC(5)*FE(25)+FC:6)kFE(35) 

COOOOiSO 

ISj; 0254 

FC(17) = 

FC(9)»fFn( 32) + FCt 10)*(FI1t40 ) + FC(7) 

C0C04S40 

ISM 0235 

FC(18) = 

FC( 9 )»rN( 33 ) + FC( 10 )»frm 41 )+FC( 6) 

OCOC4850 


C 


C00C4C60 

ISM 0236 

DO 30 J= 

19,24 

00OC487O 

ISM 0257 

FC(J) = 

FC( 9 )i<FM( J+15 )«FC( 10 )*FN( J+23 )+FC( J-8 ) 

000C4SS0 

ISM 0253 

30 CCMTIMUE 


OCCC4S90 


C 


00CC49C0 

is:; C259 

FC(21) = 

-FC(21) 

ccco;9io 

ISM 0260 

FC(22) = 

-FC(22) 

0CCC4920 


C 


00004930 

ISM 0261 

FC(25) = 

FC( 1 )>( BlI»fFEt 7)+ClR«SIN(C0i*TAU) )4FC( 2 )i*SIN( CO#TAU )- 

00004940 


•? 

FC(3)t‘K«(DlR4FE(7)-BlIi‘SIM(C0itTAU) )-FC(4)*fK«Fe(7) 

00004950 


C 


000C4960 

ISN 0262 

FC(26) = 

FC( 1 }'t(61R<FCi7)-31Z'SXtHC0*TAU))*FC( 2 )>FE( 7) + FC( 3 )* 

0COC4970 


7 

K*(B1I4FE( 7)+DlR''SIM(C0'‘TAU) )4FC(4 )kK»SIN(CO*TAU) 

0C0C493O 


c 


CC004990 

IS?i 

FC(27) = 

FC( 26 )4FE( 26 )*rC( 25 )' FE( 16 ) 

C0CC5000 

ICN 026^ 

FC(2,3) = 

FC;26)*^FE(27) + FC(25!>FE(17)-I 

00005010 

ISM 2265 

FC(29) = 

FCI26) * FEC23) + FC(25) FE118) + VOLl » K/12 / 2 

00005020 

ISM C236 

FCf30) = 

FC(26 )’<FE( 29 ) + rC( 25 )*FE( 19 ) + 55T 

00005030 

ISM 0267 

FC(31) = 

FC;26)-Fc(30)+FC(25)»FE(20) 

OC005040 

ISM 0,263 

FC(32) = 

rC( 26 )»FE( 31 ) + FC( 25 )"FE( 21 )+DT<-SSl 

00005050 

ISM 0269 

FC(33) = 

FC(26)vFE(32)+FC(25)-FE(22) 

0''005060 

ISM 0270 

FC(I4) = 

FCl26)*:F£(33)4rC(25)4rE(23)+DT 

OCOO507O 

ISM C271 

FC(35) = 

FCtSeji^FEf 34)4FC(25 )»FEi24) 

CC005C30 

I.S.M 02 72 

FC( 36) = 

FC(£6) * FE(35) 4 rC(25) * FE(25) ♦ K/12 * AVGDI 

00005090 

ISM C273 

FC(37) = 

FC(29)4FM(32)4FC(33):iFt!(40)4FC(27) 

C0C051C0 


FC(33) = 

FC( 29 )4F)U 33 )4FC( 30 )»Ft1(41 )4FC( 28) 

00C05110 


C 


00005120 

ISM 0275 

DO 40 J= 

39,44 

00005130 

ISM 0276 

FC(J) = 

FC( 2?)vFM( J“5 )4FC( 30 )!*FM£ J43)>FC( J-S) 

000051^-0 

ISM 0277 

40 CCMTIK'UE 


00005150 


C 


CCC03160 

ISM C27.3 

FC(41) = 

-FC(41) 

C00C5170 

ISM C279 

FC(42) = 

-FC(42) 

0C0C51S0 


C 


00005190 

ISM 02S0 

QL'QT = 

FC(42)/FC(22) 

00005200 

IS.M 0261 

FC(45) = 

FC(41)-C:’JQr«FC(21) 

00005210 

ISM 0232 

FC146) = 

1/FC( 45 ))i( FC( 37 )-C?'JOT«FC( 17 ) ) 

00005220 

ISN 0283 

FC(47) .= 

l/FC!45)^«t Fa53)-GU0T4.FC( 18 ) ) 

0CCC5230 

ISM 02S4 

FC(46) '= 

l/FC(45)<'(FC(39)-Q’JOT»FC(19)) 

00003^^0 

ISM o.;s3 

FC(49) = 

l/FC(45)*(FC(40)-QJOT»tFC(20) ) 

00005250 

ISM 0286 

FCC50) = 

1/FC( 45 )»( FC( 43 )-QJOT*fFC( 23 ) ) 

00005260 



w 
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C207 


FC(51) = 

l/FC(65)^<(rC(66)-CUOT^*FC(26) ) 


0000S270 



ISM 

0133 


FC(S6) = 

l/FC(62)«(FC(63)-FC(61)»iFC(S0)) 


00005260 



IS.M 

0239 


FC(57J = 

1/FC(42)»(FC(66)-FC(61)«FC(5D) 


0C0CB290 





c 




CC005300 



ISM 

0290 


DO 50 J= 

E2,55 


OOCC5310 



ISM 

C291 


rc(j) = 

1/FC(62)*CFC( J-15)-FC(61)VFC( J-6)) 


00005323 



ISM 

0292 


50 COMTIMUE 



OOQO'53!iO 





c 




002C5360 





c 




030C5350 





c 




00005360 





c 

INTERBLADE ANALYSIS OF SECTION 2 


00005370 





c 




OC005330 





c 




00CC5390 



ISM 

0293 


FM2(1) = 

AOiU -SSU'f^a-VU^wE ) 


00005600 



ISM 

C29!f 


FM2(2) = 

AVGV2 * VOLE » K/12 / 2 


00CC5610 



ISM 

C295 


FM2(3) = 

FuvnLrv'j’;^(2 


0CUC5620 



ICM 

0296 


FM23A = 

PT + DTi-SST^^S 


OOCC5630 



ICM 

0297 


Ft!2(6) = 

Fri2(2) + r;;2(l)»i*2/FN2(2) 


OGC05'-t90 



ISM 

0293 


FM2(5) = 

FM2( 3)/rM2(6) 


00005650 



ISM 

0299 


FM2(6) = 

FM2( 3)<<FM2( 1 )/( F;I2( 2 ) »*FM2 ( 6 ) ) 


OOOOE'iC'O 



ISM 

0300 


FM2(7) = 

-2/FM2(6) 


OOOC5670 



ISM 

0301 


FM2(0) = 

-2>:r:;2(l)/(FM2f2)^<FM2(6)) 


CC0C56C0 



ISM 

0302 


Ff(2(9) = 

fi:23a/f:i2(6) 


CC035'i90 



ISM 

0303 


F!'.2( 10 1 = 

FM2( 1 ).-'Fi'12( 2 )VFt123A/FM2(6 ) 


00CC550-J 



ISM 

030'i 


FM2(11)= 

1 / FC2(6) (2 )( FLCM + FM2(1) / 


00GC5510 







FM2(2) * AVG02 » VOLE « K/12 / 2) 


C0CG5520 



lst^ 

0305 


FM2( 12 ) = 

1 / Fri2(6) » ( FI', 2(1) / FM2(2) ^ Z * 


0C0O5530 






•> 

FLCM - AVSa2 » VOLE * K/12 / 2) 


OOOC5560 



ISM 

0305 


FN2(13)= 

1 / R12(4) * (-2 5< Ffl2(l) / FM2(2) * DT » 


00005530 







SST - AVSD2 * VOL2 * K/12 / 2) 


0000:560 



ISM 

0307 


. FM2(16)= 

1 / FM2(6) (-2 * DT ■< SST + K/12 » FM2(1) / 


00005570 






? 

2 / FM2(2) VOL2 k AV3D2 ) 


0C0C55C0 



ISM 

0303 


FM2(15)= 

-AVGV2 w VCL2 » K/12 / (2 « FM2(6)) 


00005590 



ISM 

0309 


FM2(16)= 

FM2(1) / FM2(2) * AVSV2 « VOL2 a K/12 / (Z ^ FM2(9)) 

C0005600 



ISM 

0310 


Fli2(17) = 

-AV5V2 * AVGD2 K/12 / FM2(6) 


OOG0561O 



ISM 

0311 


FM2(1S)= 

AVC-D2 * AVGV2 * K/12 « FM2(1) / (FM2(2) * FM2(6)) 

000C5620 





c 




00005630 





c 




00005560 



ISM 

0312 


M(l) = 

(Ft12(3)-rf:2(2)»Fn2(5) )/Fl'12(l) 


O00C5650 



i:;j 

0313 


)U 2 ) = 

-F.M:(2)-F;;2(6)/Fn2(i) 


OOCC3:-60 



ICM 

031--i 


Ml 3 ) = 

(-2-n;2(7)'rv,2(2) l/FM2(l) 


00005670 



ISM 

0315 


M(6) = 

-FM2(2)-F!12(S)/Fr;2(l) 


00005660 



ISM 

0316 


M(5) = 

( F;12ZA-FM2( 2 )“<r::2( 9) )/FM2(l ) 


0C005690 



ISM 

0317 


t1( 6 ) = 

-FM2! 2 1^'FI!2( 10 )/FH2( 1 ) 


OGC05/CO 



ISM 

0313 


M(7) = 

(2-rLC::-FM2(2)-F:i2(ll))/FM2(l) 


0C0C5710 



II! » 

0319 


M(3) = 

(-K/12 » A'.C'J2 * VOLE / 2 - FM2(2) FM2(12)) / 

FM2d) 

00C0572O 



ISM 

0320 


M(9J = 

-(AVCJ2 VCL2 K/12 / 2 + Ft12(2) ^ Ft!2(13)) / 

FIlEd) 

0C005730 



ISM 

0321 


M(10) = 

( -E -DT^SST-FMK 2 li-FMK 16 ) )/Ff(2( 1 ) 


OC0O57sO 



ISM 

0322 


Mill) = 

-(AVSV2 6 VOL2 w k/ 12 / 2 + FM2C2) * FM’dS)) / 

FM2d) 

00C05750 



ISM 

C32 3 


11(12) = 

(-Fi;2(2)-FM2(16))/FM2(1) 


OOC0576O 



ISM 

0 326 


M(13) = 

(-K/12 * AVC02 * AVGV2 - FM2(2) * FMC(17)) / FM2(D 

000C5770 



iSM 

Oils 


(1(16) = 

-n!2(2).’'FM2(lG)/Ft',2(l) 


00005720 



ISM 

0 j26 


M(15) = 

CU a AO * VU it AO * M(7) - K/12 a VOL2 / 2 # FM2 

(11) 

0C003790 



ISM 

0327 


MC16) = 

VU « AO » M(8) - K/12 «VOL2 / 2 * FMEdE) 


C0005300 



ISM 

0323 


M(17) = 

-VL) AO »» Md) - DM » VU + K/12 '* VDL2 / 2 » FM2(5) 

COOC5310 



• ISM 

0529 


mia) = 

-VU AO * M(2) + K/12 it VOL2 / Z * FM2(6) 


OOOOSsjuO 



ISM 

0330 


mi9) = 

-VU # AO » Md2) + SST + K/12 * VOL2 / Z * FM2(16) 

0000.5330 



ISM 

0331 


M(20) = 

-VU AO * Mdl) + K/12 * VOLE / Z it FM2d5) 


CC0C5S40 



ISM 

0332 


M(21) = 

-VU * AO » M(3) + K/12 * VOL2 / Z * FM2(7) 


C0005050 
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ISf( 

0333 



M(22) = 

-VU * AO » M(4) + K/12 +; VOL2 / 2 « FM2(6) 

00005260 

ISM 

0334 



M(23) = 

-VU * AO * 1-1(5) + DT « SST + K/12 » VOL2 / 2 « FM2(9) 

00003370 

ISM 

0335 



M(24) = 

-VU * AO » M(6) + K/12 * VOL2 / 2 * F112(10) 

OOCOFOOO 

. ISM 

0336 



M(25) = 

-VU * AO K M(9) + K/12 VOL2 / 2 » FH2(15) 

oocorsso 

ISM 

0337 



M( 26 ) = 

-VU * AO * M(IO) + K/12 a VOL2 / 2 FM2(14) + DT 

occcsooo 

ISM 

033S 



!1(27) = 

-VU AO * M(13) + K/12 * VOL2 / 2 » 

COGC3?10 





7 

Fr.2(17) + K/12 * AV.702 

0C0C59'';) 

ISM 

0339 



H( 26 ) s 

-VU AO H M(14) + K/12 if VQL2 « FM2(18) / 2 

C0CQ3930 



C 




00005940 



C 




CC005950 

ISM 

0340 



CL(1) = 

DU if AO + VU « AO * FM2(12) + K/12 * VOL2 / 2 # M(6) 

00C05ff60 

ISM 

0341 



CU2) = 

VU * AO * F!12(ll) + K/12 » VOL2 / 2 « M(7) 

OCC03970 

ISM 

0342 



CL(3) = 

-VU AO » FM2(5) - K/12 « VOL2 / 2 »;M( 1 ) 

0OCC5430 

ISM 

0343 



CL(4) = 

-DU X VU - VU if AO * FM2(6) - K/12 » V0L2 / 2 M(2) 

COC05990 

ISM 

C344 



CL(5) = 

-K/12 VOLZ / 2 - VU » AO if FM2(16) - 

OCC05CCO 





7 

K/12 « VOL2 / 2 if Ml 12) 

0C006C10 

ISM 

0345 



CU6) = 

SST - VU « AO if F:-!2(15) - K/12 » VOL2 / 2 » ri( 11 > 

CC0C6020 

ISM 

03^S 



CM 7) = 

-VU # AO if FM2(14) - K/12 i* VOL2 / 2 if M(10) 

CC006C30 

is:i 

0347 



CM8) = 

DT - VU if AO if FM2(13) - K/12 » VOL2 / 2 X M(9) 

OC006040 

ISM 

0543 



CL(9l = 

-VU if AO » Ft12(7) - K/12 if VOL2 /2 * M(3) 

00006050 

ISM 

0349 



CMIO) = 

-VU if AO if FM2(S) - K/12 if VOL2 / 2 if M(4) 

OOOC6C60 

ISM 

0350 



CMII) = 

-VU * AO » FM2(9) - K/12 * VOLZ / 2 if M(5) 

CC0C6070 

ISM 

0351 



CM12! = 

-VU * AO if FMC(IO) - K/12 if V0L2 / 2 i« 11(6) + AVGO2ifSST000C6C30 

ISM 

0352 



CL(13) = 

-VU if AO * FM2(1S) - K/12 * VOL2 / 2 « ( 2 » DT + M( 14 ) )300C6C90 

ISM 

0353 



CM 14) = 

-VU if AO if FM2(17) - K/12 *VOL2 / 2 if M(13) 

CCGC61C0 

ISM 

0354 



CM 15) = 

CLl2)-CL(11/M(16)iiM(15) 

C2006110 



C 




0(1006120 

ISM 

0355 



DO 60 J= 

16.19 

00006130 

ISM 

035S 



CL(J) = 

l/CM 15 )it( CM J-13 )-CL( 1 )/M( 16 )i<M( J + 1 ) ) 

OOOC6140 

ISM 

0357 


60 

CCMTIN'JE 


00006150 



C 




C0-JCcl6O 

ir.M 

0353 



CM 20) - 

l/CL(15)if(CL(7)-CL(l )/M( 16)i M( 26 ) ) 

C00C6170 

IS.M 

0359 



CL(21) = 

1/CM 15 )if( C M 6 ) -CM 1 )/M( 16 ) i-.'M 25 ) ) 

C0C06120 

ISM 

0350 



CMC?) = 

l/CM15)if(CL(9)-CMl)/M(16)fr!211) 

00CC6190 

ISM 

0361 



CM23) = 

l/CM15)!f(CL(lQ)-CM 1 )/M( 16 )i ri(22) ) 

000062C0 

ISM 

0352 



CM24) = 

l/CM 15 )if( CM 11 )-CL( 1 1/M( 16 )>iru 23) ) 

0C0C6210 

ISM 

0363 



CM25) = 

l/CM15)if(CL(12)-CMl)/M(16)ifM(24)) 

00006220 

IStl 

0364 



CM 26) = 

l/CM 15 )*( CM 13 )-CM 1 )/M( 16 )«;1( 23) ) 

00006230 

ISM 

0365 



CL(27) = 

l/CL(15)ii(CL(14)-CMl)/M(16)itM(27) ) 

0C005240 



C 




00036230 

I£!( 

0366 



DO 70 

J = 26,39 

00006260 

ISM 

0367 



CMJ) = - 

(CM J-25 )-CM 2 )ifCM J-12 ) )/CL( 1 ) 

00QC6270 

ISM 

0363 


70 

CCMTIMUE 


C0C062S0 



C 




C0C06290 



C 




OOOC630O 



c 

IMTER3LA0E ANALYSIS OF SECTIOM 3 

0CCC6310 



c 




COCC6320 



c 




0CCC6330 

ISM 

0369 



S(l) = 

2ifGA:;M',if?’U/(GAM::4+i) 

00006340 

ISM 

C3T0 



S(2) = 

(2i(?A!;:;A/(GA:;r;A + l) )x?L'i::?JS-F0-( GAMMA-1 )/(GAMf1A+l)itPU 

C0006350 

ISM 

0371 



S(31 = 

2:;GA):MA/(GAi:;:A+l)vsSUi'ML;5+US-( GAMMA-1 )/(GAMMA+l)if 

0000631^0 





7 

ssu 

CCCC6370 

ISM 

0372 



S(4) s 

2 fi 0 a: ;m A/ ( G Ai " ; A f- 1 ) K s su» PU 

0 0 C C 6 jCO 

ISM 

0373 



S(5) = 

( GAMMA-1 )-»:'J3ifif2T2 

00006390 

ISM 

0374 



S(6) = 

( 2-2ifGAMMA )ifD0 + ( 2ifGAMMA+2 )»fDU 

00C064C0 

ISM 

0575 



S(7) = 

(GAllMA + l )if:rjSi:-if2 

00306410 

ISM 

0376 



S(3) = 

S(6)/(SSUi<SC5)) 

OOCC6420 

ISM 

0377 



S(9) = 

5(7)/S(5) 

00006430 



c 




CCOC6440 
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C 



00006450 

ISN 

0373 


LM(1) = 

DE»-:UEifACE/(CC?<TAU)-rRE^SIN( ALPCH)/(CCXTAU1 + (REV» 

O0CO645O 





COS( ALFCH-DETA2 ) )*«0+=ACE >L'E^D5/t CO *TAU'‘SC3EX»*2 )-DE# 

00006470 




*> 

ACE/(Cr:';TAU)?iSirN ALFCH ) iREV 'C05( ALPCH-CETA2 ) 

CGOC6400 



C 



0C006490 

ISN 

0379 


LM(2) = 

CE=<( XtCC-VE )«ACE/( CC^TAU )-C05[ ALFCH )> rRE/TAU+DE*l REV»f 

000065CO 





C0S(ALf'CH-SETA2 ) )i<-2»ACE*( K tCO H'E )/( C0>fTAU>fS05EX"<(2 )- 

C00C6510 




2 

DE^ACEiXCG( ALFCH )rRSV>‘COS( ALFCH-BETA2 ) 

00006520 



C 



C0006530 

ISN 

0330 


LM(3) = 

AVGV3^VOL3/2!<UE“OE/( COITAL! !(SOSEX^«2)-AVCD3^«VOL3M 

0CC06540 




2 

SIN( ALFCH )/( 2~CC ■•■TAU) 

OOOC6550 



c 



0C0C6560 

ISN 

0531 


LM(4) = 

AVGV3«V0L3/( E 'CD'TAU'SOSEXif^O )«( K + CO:*VE )»;DE- 

00C06570 




*> 

AVGD3-'VOL3 'CCS( ALFCH )/( O^^TAU ) 

C00065GO 



c 



00006590 

ISM 

C3-:2 


R = 

-c;+VE-^CO)/UE 

OOQC6600 

IGN 

0333 


LM(5) = 

FR£‘ S!t!( ALFCH )/( TAU*( R«>2+CQi^"2 ) )-R«COS( ALFCH )ifFRE/(CO* 

'C03066I0 




7 

TA'J-'(R"-)0 + CC-^2M+F:EVi<Ca3(ALFC:-;-BErA2)«DE<*ACE» 

COGO66C0 




7 

( SDH ALFCH )-R/CO»CC3( ALFCH ) )/( TA'J-K R^»2+CO« >r2 ) ) 

00006630 



c 



OCOCC'AO 

ISN 

033'^ 


LM(6) = 

AVGD3>‘VCL3/( 2»TAU>^( RJf»2+CO^»2 ) )»:( SIN( ALFCH )-R/CC» 

OOC0665O 




7 

COG.' ALFCH ) ) 

00006660 



c 



00006670 

ISN 

0335 


LM(7) = 

COS(CC>tTAU)-l 

00006630 



c 



000C6690 

ISN 

0306 


ims) = 

LM( 1 LM(7 )i'30R-C:i«5I)H CCxTAU) ) + LM( 2 )«LM( 7)-K» 

0CC06700 




7 

DU 3)^<(B:i+(Lr:( 7) + B2R-SIN(C3*TAU) )-K«Lri(4 HfS:NlCO>HAU) 

OCC06710 



c 



0CCC67C0 

ISN 

03S7 


LM( 9 ) = 

- DU 1 )«( LN( 7 )»^G2I + C£R'SIM( CO^vTAU) )-LM( 2 )XSIN(C0«TAU)- 

0CCC6730 




7 

K?^DU 3)?^(BCR>;LtU7)-D0I'SIN(CC^TAU) )-K*D1(4)»DU7) 

COOC6740 



C' 



0CC06750 

ISN 

0303 


LM(lO) = 

-K«DU6)*SIN(C0«TAU) + LM(5)*LM(7) 

CC005760 



c 



0OC0677O 

ISN 

03C9 


LM(ll) = 

-K*DU6 )*LM( 7)-Lt1(5 )x3IN(CC?^TAU) 

00006700 



c 



CCC06790 

ISN 

0390 


LM(12) = 

DUl) '(C2I»DU 7) + B:R-3IN;C0-TAU) ) + D1( 2)-SIN(C0’*tAU) + 

00006300 




7 

DU3)^H»(GCR«L;U7)-C2I'*SINCCC iTAU) ) + LN(4)«K^*LM(7) 

00006310 



c 



CCOO60CC 

ISN 

0391 


LM(13) = 

LIU 1 )^f( B0R>« DU 7 )-B2I>^SIN( COVTAU) ) + D1( 2 )t:LM( 7 )-D1( 3)* 

00006030 




7 

K"(B2I*;DU7)+B2fNiSIN(CCKTAUJ )-LM(4)iiK*5IN(CO»TAU) 

CCCC6S40 



c 



00CC6S50 

ISN 

0392 


LM(14> = 

DU 5 )«SIfU C0*;TA'J / + LN( 6 )>«!<<« DU 7 ) 

00006060 



c 



C0006670 

ISN 

0393 


LM(15) = 

DU 5 N«DU 7 )-LM( 6 )>KXiSIN( CO*TAU ) 

0C0C6330 



c 



00006390 

ISN 

0394 


LMC16) = 

LM(12)-LI1(13)/LM[9)«DU8) 

00006900 



c 



CC006910 

ISN 

0395 


Lri(17) = 

l/DK 16 )K( DU 14 )-LM( 17- )»LM( 10 )/LM( 9 ) ) 

OC3069C0 



c 



C00C6930 

ISN 

0396 


Lri(16) = 

1/DU 16 )«( LM( 15 )-DU 13 )»fLM( 11 )/LM( 9 ) ) 

C0006940 



c 



00CC6930 

ISM 

0397 


LM(19) = 

1/DU 16 ) 

COOC6960 



c 



00006970 

ISN 

0393 


LM(20) = 

-LH(13)/(LM(9)+HM(16)) 

0C0C69O0 



c 



003C6990 

. ISN 

0399 


LM(Ol) = 

(LIU14)-LM(12)5fLM(17) )/LH(13) 

0C007CC0 

ISN 

0400 


LM(22) = 

( DU 15 )-LM( 12 )»DU 18) )/DU 13) 

C0007010 

ISN 

0401 


LH(23) = 

-DU 12 )*LM( 20 )/D1( 13) 

00007020 

ISN 

0402 


LM(24) = 

(1-LM(12)»LM(19) )/LM(13) 

00007030 
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(01 HAY SO) 

UMST SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 60.353/ 

ISN 

C4S3 


k"UTE(6,333) SIR, Dll 

00007040 

:Sf4 


333 

FCRMAT(//' 

81'/I2£15.6)) 

C0C07050 



C 



COCOTOOO 

ISM 

C';05 


i:P!ITE(6,60 

00) FE 

CGoorc/o 

ISM 

C'-iCo 


M:7ITE(6,61C0) AVGVl 

0C207C30 

ISM 

CfiO? 


MTITE(6,62 

00) VO LI 

cg:o70to 

ISM 

0AC6 


'»PITE(6.6C3D FI1 

00:107100 

ISM 

C^C<? 


MRITE(6,eC 

02) FC 

co:o7iio 

ISM 

0410 


1:RITE(6,6C03) F;12 

00007120 

ISM 

0411 


WRITE(6,6C04) M 

co:o7i:o 

ISM 

0412 


I:RITE(6,60C5) CL 

0CCS714O 

ISM 

C413 


!:RITE(6,60C6) S 

C0007150 

ISM' 

0414 


MRITE(6,6007) LM 

GCC07160 

is:j 

0415 


1:RITE(6,6C03) LC 

00007170 

ISM 

C416 

6000 

FORMAT ( '1' 

FE’ ,/,9(E12.4,2X)l 

C CO. 0 7160 

ISM 

0417 

6100 

FORMATt 

AVGVl' ,/,lX,E12.4,2X) 

C0037190 

ISM 

0413 

6200 

FCRMATC 

VOLl* ,/,lX,E12.4,2X) 

C00072C3 

ISM 

C41« 

6001 

FORMATt 

,' FM' ,/,9(E12.4,2X) ) 

00007210 

ISM 

0420 

6002 

FORMATt 

,' FC ,/,9( E12.4,2X) ) 

00007220 

ISM 

0421 

6GC3 

FORMATt 

FM2' ,/,9( E12.4,2X) ) 

COC07230 

ISM 

C^i22 

6004 

FORMATt 

M' ,/,9( E12. 4 , 2:0 ) 

0CC07240 

ISM 

0423 

6005 

FORMATt 

,* CL' ,/, 9(212.4, 2X) ) 

00007230 

ISM 

0424 

6CC6 

FORMATt 

S' ,/,9(E12.4,2X) ) 

OC007C60 

ISN 

0425 

6007 

FORMAT ( 

LM' ,/,9(E12.4,2X)) 

0CC07270 

ISM 

0426 

6008 

FORMATt 

,' LC ,/,9(E12.4,2X) ) 

00007260 



C 



c::o7290 



C 

CALCULATE 

EITHER IN TORSIOMAL OR BENDING MODE 

OCCC7500 



C 



00007310 



C 



C0007320 

ISM 

0427 


DO 15 II 

= 1,2 

00007330 

ISM 

0423 


IF tll.EQ. 

1) GOTO 13 

000073^‘0 



c 



00007350 



C CALCULATES TCRSICMAL MCDE5 AREAS 

00007360 



C 



0CCC7370 

isr» 

0430 


RMAPI = 

C»ZifALF3AP^« (cost SIC-MAT )-l)/A5TAR 

00007330 

ISM 

0431 


IfiAPI = 

Ci<Z-AlFOARr( 5lf;( gig: 1 AT ) )/A3TAR 

CGC07390 

ISM 

0432 


OMAPT = 

( Z-XSTAR/C )^( cost S:G::aT )-l )>-C^iALF3AR/ASTAR 

CCC07-iC0 

ISM 

0433 


iriAPT = 

( Z-XST.'R/C )i:SI(;t SIGMaT )>-C*^ALF3AR/ASTAR 

0C007410 

IS'i 

0434 


FMAP = 

( Z-XS/C ) i: ( CCS ( SIO: : AT ) - i ) "C> ALF3/! R/A5TAP 

CC007420 

ISM 

C435 


IMAP = 

( Z-X3/C )*SIfi( SIGM AT ) »C"ALFC R/A5TAR 

00007410 

ISM 

0436 


RACE = 

(Z-1 )»(CCS( SIGrVAT )-l )JX*ALF3AR/ASTAR 

C0007440 

ISM 

0437 

C 

lACE = 

(Z-l)»SIM(SIGnAT)KC*ALFCAR/AST,AR 

CCC07450 

OC007460 



C CALCULATES TORSICMAL MODE VOLUMES FOR THE FIRST TMO SECTIONS 

00007470 



C 



00007430 

ISM 

0433 


VI AR = 

O.O 

0CC07490 

ISM 

0439 


VlAI = 

O.O 

00007500 



c 



0CC07510 

ISM 

0440 


VIER = 

C^'DELTA»!Z*ALF3AR9« ( cost SIGMAT )-l )*COS( ALFCH )/( ASTAR^B ) 

00007520 

ISM 

0441 

c 

VIBI = 

C«B3 LTA’^Zv-ALFOAR'/i ( SIN( SIGMAT ) )fCOS( ALFCH )/( ASTAR*3 ) 

C0CC7530 

00007540 

lEM 

0442 


VICR = 

C^*ALP3ARJ*( cost SIGMAT )-l )v(Z«(XSTAR-D£LTA»^CC3(ALPC)i) )- 

OC007S50 




7 

( XSTAR »>2-( CELTA*C0S( ALPCH ) )»*»2 )/( 2':C ) )/( ASTAR«B ) 

OC007560 

ISN 

0443 


VICI = 

C*ALF3ARf ( SIM( SIGMAT )) * t Z^«( XSTAR-DE LTA^COS ( ALPCH ) ) - 

OC007570 




7 

( XSTAR«*2-( CELTAxCOSt ALFCH ) )#»2 )/( 2^0 ) )/( ASTARXB ) 

00C07560 



c 



00007590 

13N 

0444 


VIR = 

VlAR+VlBRtVlCR 

00007600 

ISN 

0445 

c 

VII = 

VlAI-fVlBl+VlCI 

0G007610 

C0007620 
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(01 MAY eO) UNST SYSTEH/370 FORTRAN K EXTENDED (ENHANCED) 

VSR = C^‘ALP3,\R'<(C03(SIGMAT)-l)*(Z»lXS-XSTAR)-({XS*«2- 

? X5TAR=-«C )/( 2«C ) ) )/( ASTARX3 ) 

V2I = Cl^ALF^■=^<(SIN(SIG^AT))«(2^^(XS-XSTAR)-( (XS<f»f2T 

? XSTAR;;«2)/(2»(C) ) )/(ASTAR«B) 


C CALCUITES BEN0IN3 NODE AREAS 
C 


DATE 30.353/15.02.49 
00007630 
C0CO7640 

00007650 

00007660 

00007670 

00C076S0 

_0C0076?0 

00007700 

00007710 


ISN 

0949 

13 RACE 

= 

H*tC03(SIG‘tA3)-l )/A5TAR 

00007720 


ISN 

0450 


lACE 


H«SIN(SIC:!7.3)/ASTAR 

00007730 


ISM 

C451 


IMAP 


H.:tCIMlSICriAD )/ASTAR 

00007740 

: 

ISN 

0452 


RNAP 

= 

K«(.COS( SIGMAS )-l )/ASTAR 

00007750 


ISM 

0453 


RN.’.PI 

= 

H'M COS( SIGMAS )-l )/ASTAR 

00007760 


ISN 

0454 


I:1APT 

= 

H«SIN(SIGMAB)/ASTAR 

00007770 


IS)) 

C455 


'llIXFI 

= 

H:iGIM(SlGMAB)/ASTAR 

00007700 

- 

ISM 

0456 


RNAPT 

= 

H^(C0S( SIGMAS )-l )/ASTAR 

00007790 

■ 


• 

C 




00007SCO 

■ 



C 

_j:alc'jltes_ 

BE 

NDIN3 MCDE VOLUMES FCR THE FIRST TWO SECTIONS 

00007310 

1 



C 




00007320 

■ 

ISN 

0457 


VIAR 

= 

0.0 

00CC7330 


ISN 

04S8 


VlAI 

= 

0.0 

00007040 




_c 




0CC07650 

- 

IsT( 



" VISR 

= 

D E LT A^'H > ( C CS ( s' i GM AS i - 1 i J<COS ( A LPCH ) / ( AST AR»3 ) 

00007060 


ISM 

0450 


V13I 

= 

DELTAi.-H!C-( SlIU SIGM.A3 ) )«C0S( ALFCH )/( ASTAR»fB ) 

00007370 




c 




00007830 

1 

2SN_ 

_0461 


VICR 


( Fpf t XSTAR -DE LTA'^CCS ( A LPCH ) ) « ( COS ( SIGMAB ) -1 )+ASTAR*H<f 

00007390 





■> 


( cost SIGMAS )-l );^CCTAN( ALFCH ) )/( ASTAR«B ) ■ 

00007900 


ISM 

0462 


VICI 


(H?rt>;sTAR-DeLTA«COS(ALFCH) )«(SIN(SIGNAB) )+ASTAR«H* 

00007910 





7 


( SirU SIGMAS ) )tC0TAN( ALFCH) )/(ASTAR»<B) 

00007920 




_p. 




0C0O7930 


-isTT 

^463 


ViR 

*=“ 

VlARrVlER+VlCR 

000C7940 


ISN 

0464 


VII 

= 

V1AI+V15I+V1CI 

00007950 




c 




00007960 


ISN 

0465 


V2R 

A_ 

H*( cost SIGrJAB )-l )tt( XS-XSTAR )/( ASTAR^B ) 

00007970 


'iSN 

C'466' 


V2l" 


H»t SINt SIGriAS ) )»( XS-XSTAR )/( ASTAR^S ) 

00007930 



00007990 

00008000 

COOOoOlO 


ISN 0467 
ISN 0468 

17 

C 

IS3P 

•> 

RSSP 

= FC(52)-RMAPHFC(53H<IMAPI+FC(54)*RMAPT+FC(55)*IMAPT+ 
FC(56)*V1I+FC(57)«V1R 

= FC( 46 )«RMAPI + FC( 47 )«IMAPI+FC( 43)*RMAPT+FC( 49 )*IM.APT+ 

OOCC6O20 

O0C0CD30 

00003040 

000COC50 



•> 

FC(50)*V1I + FC(51)»(V1R 

00000060 


c 



00003070 

ISN 0469 


IMDP 

= F:i(40)>RMAFI+FtI(411vinAPI+FM(42)«RMAPT+FM(43)»«IMAPT+ 

OCOOCOGO 




•> 

FtK44 )*>RSSP + FM(45)i^ISSP+FM(46)^tVlI + FM(47)*VlR 

00000090 


FN( 32)x.7MAFI + Fr:( 33 )i‘rMAPI+FM( 34 )«RMAPT + FM( 35)*IMAPT+ 
Fr:t 36 )^-RSSP + Fn( 37 )-ISSP+FM( 33 )«V1I + FM( 39 )tfVlR 


FE( 26 )!>RnAPlTFE.( 27 1 *iIMAPI + FE( 28 )*RNDP+FE1 29 )»tINOP+ 
Fl( 30 js^-TNAPT + FEt 31 )i'I!1APT+rE( 32 )«RSSP+FE( 53 )#1S5P+ 
FE( 34 )^:-VlI + FE( 35 )*iVlR 

‘FE( lo l«Ri-lAPI + FE( l7 i*IMAPl + FE( ISHRNDP+FEi 19 )*IHdP-T 
FE( 20 )*RNAPT+FE( 21 )^*INAPT+FE( 22 )«RSSP+FE( 23 1*ISSP+ 
FE(24)itVlI+FE(25)i«VlR 


00003100 

OOOC3110 

00CCC120 

C0CC3130 

"OOOC3140" 

COCCG150 

00003160 

00003170_ 

C0033160 

00006190 

00003200 

00008210 
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ISM 

ISM 

0A73 

C 

IMFP 

RMPP 

= 

IMDPwSSHti*2 

R::DP+fSSTiJ»2 

00006220 

OOOOC230 

CCCC3?40 

ISN 

0475 

C 

RMVFU 

7 


CL( 16 ))^P::',P+CL( 17 )*inAP+CL[ is M<Rr;DP+CL( 19 (•IIIDP+CL( 20 )*OOOOS250 
RSSP+CU 21 )-^ISSP+CU 22 )VR|;PP+CL( 23)«I11PP+CL( £4 )»^R!-tAPT+ CC00G260 
CLI £5)5aH\PT+CL( £6 )*;V2R+CL( £7 )«V£I 00CG3270 

000G3230 

ISN 

0476 


IMVPU 

= 

CU 23 ISfRiVAP+CU £9 H'i:i.^.P+CL( 30 M<P.’:DP+CL( 31 )*'I(:DP+ 

02C0C293 




7 


CL(32)^RSSP+CL(33)>^IS5F4CL(34)»:RMPP+CL(35)«IMPP+ 

00003300 




7 


CL(36 )^RI!APT+CLf 37 )>ItIAPT+CL( 33 )*V2R+CL( 39 )»V2I 

00003510 



C 




000G3320 

ISN 

0477 


RHDPU 

= 

M( 1 )«Rt;AP + M( £ )*IMAF+M( 3 )*RMFP+M(4 )#lMFPTm5 )• 

000GS330 




7 


RMAPT+Mt6)=*i:iAPT+n(7)?^R:iVFU+M[8)«ir:VPU+M(9)*I5SP+ 

00000340 




7 


H( 10 )«RSSP+M( 11 )«IMDP+Mt 12 )?<RMDP+M( 13)*V2I+M( 14 )*V2R 

C00C3350 



C 




00006360 

ISN 

0478 


IMDPU 

= 

FI12(5)>;Rr!AP+FM£C6 )*iriAP+FM2(7)*RnPP+FM2(8)*I11PP+ 

00006370 




7 


Ft!2( 9 )<PMAPT + Frl2( 10 ) «IttAPT+FM2( 11 )*RHVPUiFt12( 12 )• 

OOOQS3SO 




7 


1I1VPL!+Fri2( 13 )»I3S?+FM£( 14 )-RSSP+FM2( 15 )*IMDP+ 

00003390 




7 


FM2( 16 )»R::DP+Fn2( 17 )HV2I+FM2( 1S)#V2R 

00003400 



C 




00003410 

ISM 

0479 


RODS 

= 

S(8)>.RMVPU + S(9)JfRM3FU 

CC003420 

ISM 

0450 


IDDS 

= 

S(3):^i;;vr-U+S(9)«Ii;3FU 

000CC430 

ISN 

0431 


RMPPU 

= 

S5’J^»2-RrDFU 

OOOOC440 

ISM 

c;e2 


IMFFU 

= 

SS'J^^2i.lraFU 

OC00345C 

ISM 

0433 


RCGSU 

= 

( G-'.MMA-1 )/2!»PMPFU/( CU*SSU ) 

OOOOS460 

ISM 

0^3'4 


ISOS'J 

= 

( ga: ;ma-i )/£ < imfri/( cu»fssu ) 

00008470 

ISM 

04S5 


RFOS 

= 

SOSDS’-<v2^i.RCDS 

0000S4O0 

ISM 

C4CS 


ires 

= 

SCG£SV.*2*IDDS 

CC0CC490 

ISN 

0437 


L'SP 

= 

i/S( 1 ) sr 2 ) VSS0SU+S( 3 )*RMPPU+S(4 )/SSU«RMVPU'SSU*RPDS ) 

00002500 

ISM 

04C3 


USI 

= 

1/S( 1 )•( S( 2 )XI30SU+S( 3 )»1HFFU+S( 4 )/SSU*IMVPU-SSU>fIPDS ) 

00003510 

ISN 

0439 


IMSP 

= 

-U5R/K 

00003520 

ISN 

0490 


Rr:sp 

= 

USI/K 

OOCOC530 



C 




OOCOS540 

ISM 

0491 


RMFPI 

= 

-VELAX/( CC>fTAU )* ( D1RHRVPU«( COS( CO«TAU )-l ) -B11»IVPU» 

OCOOC550 




7 


( C0S( CO^TAU ) -1 ) -IVFU«31R«SIN( CO«TAU )-BlI» RVPU>fSIN( CO* 

00006560 




7 


T/.U) )-(i;+CO:iVEL)/(COsTA’J)»i(RVPU*(COS(COi«TAU)-l)-IVPU* 

00006570 




7 


SIM(CQMTAU)) 

00C035S0 



C 




00006590 

ISN 

0492 


IMFPI 

= 

-VELAX/(COi<TAU)*(IVPU»BlRM(COS(CO»TAU)-l )+BlI*RVPU* 

OOC066OO 




7 


(COS(CC’^TAU)-l)+BIR»RVPU^<SIN(CO«TAin-BlI«IVFU»SIN(CO# 

00002610 




7 


TAU ) ) - ( K+ COtVE U /( CO^TAU )• ( IVPU*( COS ( CO»TAU ) -1 )+RVPU* 

O0OOS62O 




7 


SIM( CO-TALI ) ) 

OOOCC630 



c 




00006640 

ISM 

0493 


RMDPI 

= 

R!iPPI/S3I*«>2 

C0008650 

ISN 

0494 



= 

IMPPI/SSI^.'C 

C0008660 



c 




00C0C670 

ISN 

0495 


RMSSPI 

= 

(GAMMA-1 )/( 2«5SI)*RMPPI 

00003680 

ISN 

0496 


IMoSPI 

= 

( gam: )A-1 )/( 2>SSI )*IHPPI 

OO0C269O 



c 




000 0670 0 

ISN 

0497 


PITVPI 


1/TAU»(RVFU»(C03(CO»TAU)-1)-IV?U*SIM(CO»TAU)) 

00003710 

ISN 

0498 


IITVPI 

= 

1/TAU»( IVFU»( cose COnAU ) -1 )+RVFU»SIN( CO^TAU ) ) 

COOOG720 



c 




OCC03730 

ISN 

0499 


RIAVPI 

= 

l/( CO»TAU )•( B1R*RVFU-' ( cost CO*TAU ) -1 )-BlIi^IVPU» 

000C6740 




7 


(COG(CC-tTAU)-l)-IVFUi«BlKxSIM(CC*TAU)-BlU<RVPU* 

00003750 




7 


srM(co»TAun 

000C3760 



c 




0000S770 

ISN 

0500 


IIAVPI 

= 

1/(C0»TAU)«(BIR*IVPU»(C0S(C0»TAU)-1)+B1I»RVPU* 

00003760 




7 


( cost COi«TAU ) -1 ) +R VPU^BlRKSINt COmu ) -BII^IVPU# 

0OCO8790 




7 


SlNtCOi*TAU) ) 

00008600 
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C 



0C00331C 


ISN 

0501 


lF(ir.Eq.2) 

GOTO 24 

0O0CCS2O 




C 



OnOCflBSQ 




C CALCULATES THE 

; ESENDIN3 MODES VOLUMES FOR THE THIRD SECTION 

0CCC2S40 




C 



OOCC3O50 


ISM 

0503 


V3AR = 

(H‘f(CC3(SIGMAB)-l )«(C-XS)-(AO+ACE )«ASTAR/2*RMSP«3 )/ 

0GCCCC60 





> 

C ASTA^::D) 

OOCCr-370 



050'+ 


V3DR = 

DE LTA/2 . 0«SIN( 2»ALFCH )«H-( CCS( SIGMAB )-l )/( ASTARi<3 ) 

OCtOCDioO 


ISN 

05C5 


V5C9‘ = 

0.0 

00008390 


ISN 

0506 


V3AI = 

(H ^^sriN SIGMAB) « (C - XS) - (AO + ACE) « ASTAR / 

00003900 





*> 

2 * IMSP * B) / (ASTAR * B) 

00006910 


ISN 

CS07 


V3BI = 

OELTA/2 . CwSIMt 2^*ALFCH )»H«( SIN( SIGMAB ) )/( ASTAR^B ) 

00003920 


ISN 

0506 


VIC I = 

0.0 

0C0O3930 


ISN 

0309 


tJRITE( 6,410) 

00000940 


ISN 

0510 

410 

FC";i,\T( '!•, 

’ BENDING') 

0OC08950 


ISN 

0511 


GOTO 25 


00003960 




C 



C0000970 




C CALCULTES THE 

TGRSIOIAL MODE VOLUMES FCR THE THIRD SECTION 

COOC39SO 




C 



00000990 


ISN 

0512 

24 

V3AR = 

(C»AL^2Ar?t(CC3(SIG^AT)-ll^^(2)♦(C-XS)-(C^^^^2“XS»»^^)/ 

C0009000 





> 

( 2?fC ) )-A0«ASTAR»RM5F‘:3 )/( ASTAR»<B ) 

OC009010 


ISN 

0513 


V3AI = 

( C^‘ALFDARV( 3IN( SIC-MAT ) )*( Z*( C-XS )-( C<t)*2-XS*)t2 )/( E’fC) )- 

OOC09O2O 





> 

AO" AST AR IM? PH 3 ) / ( AST AR »3 ) 

00009030 


ISN 

0514 


V3DK = 

ALFBARiM Z-1 )* ! COS( SIGMAT )-l )*C*COS( ALPCH )* 

C0009C40 






DLLTA/(ASTARf3) 

COC09050 


ISN 

0515 


VZBI = 

ALF3ARit(Z-l)xSIN(SIGMAT)»C»C0S( ALPCH )*DELTA/(ASTAR*B) 

00009060 


ICN 

C516 


VZCR = 

0.0 

OC009070 


ISN 

0517 


VICI = 

0.0 

C0009030 


ISN 

0516 


NR1TE(6,420) 

0C0O9090 


ISN 

0519 

420 

FCnilAT( '!• , 

, • TORSIONAL!) 

00009100 




C 



00009110 


ISN 

0520 

25 

V3I = 

V3AI+V3DI+V3CI 

OC009120 


ISN 

0521 


V3R = 

V3AR+V3BR+V3CR 

00009130 




C 



C0009140 




C 



OOCC9150 




C 



CDOC9160 




C 



00009170 




C 



00C09160 


ISN 

0522 


RUDS = 

1/DD»( RMDPUM'U+OUffRMVFU-RDDSwVD ) 

00009190 


ISN 

0523 


lUDS = 

1/DDX IMDFU(VU+DU>IMVrU-ICDS«VD ) 

000092CO 


ISN 

0524 


i;03I = 

IDBSHVD«A0+DD*IU0S‘A0+DD»fVD5<IMAP 

00009210 


ISN 

0525 


NDSR = 

RCC5!n'G>AG+DO:'2UBG>(AO<DB«VD*SMAP 

00009220 


ISN 

0526 


Cl = 

-DEHreV«CGS(ALPCH-BETA2)*IACE+WDSI-AVGD3 * K/12 * V3R - 

■00009230 





7 

K/12 *VOL3/2HRDDS 

00009240 




C 



00009250 


ISN 

0527 


CR = 

-DE»'RACE»^U2rRE+NDSK+AVGD3 K/12 * V3I+K»V0L3/2»(ID0S 

00009260 




C 



00009270 


ISN 

0528 


IC = 

-IFDS«AO-FD*IMAP+IACE*(PE+(REV^<COS( ALPCH-BETA2) )*i*2it 

00009200 





7 

DE) - MDS ^ lUDS + AVGV3 ^ V0L3 ^ K/12 * RODS / 2 + 

OC009290 





7 

AVGD3 « AVGV3 » K/12 V3R + K/12 *AVGD3 * V0L3 * 

000093CO 





7 

nUDS / 2 - NDSI ^ VD 

00009310 . 


ISN 

0529 


RC = 

-RFDS»AQ-FDHr.MAP+RACE*( PE+( REV«COS( ALFCH-BETA2 ) )»f»2* 

00009320 





7 

DE) - NDS » RUDS - AVGV3 *f V0L3 * K/12 * IDDS / 2 - 

00009330 





7 

AVC-03 * AVGV3 ^ K/12 * V3I - K/12 * AVGD3 * V0L3 * 

00009340 





7 

lUDS / 2 - UDSR » VO 

00009350 


_ 


c 



00009360 




c 



00009370 




c 



00009380 
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ACEi»SIN( ALPCH )/( CO'^TAU ) 

00209400 



c 



00009410 

ISN 

0531 


LC( 2 ) = 

-DE»‘( K + COWE )»^ACE*REV)(C03( ALPCH-BETA2 )/ 

OC009420 




7 

( CO*»TAU»S05EX«^<2 )+DE»ACE«COS( ALPCH )/TAU 

0 C u C ^0 



c 



CCCC9440 

ISN 

0532 


LC(3) = 

OE!^ACE/( TAU«( R«»f2iCC*»2 ) )«( SIN( ALPCH )-R/CO«COS( ALPCH ) ) 

CC0C9450 



c 



C0CC9460 

ISN 

0533 


LC14) = 

VOL3«L'E¥D£/( 2»CC’^TAU»fSOSEX<»*2 ) 

CC009470 



c 



OOC094SO 

ISN 

0534 


LC(5) = 

VOL3/2^r K+CO»VE )>fDE/( CO^TAUxSOSEXx^S ) ’ 

00009490 



c 



00009500 

ISN 

0535 


LC(6) = 

LC( 1 )«D2P>fLN( 7 )-LC( 1 )^!B2I^fSIN(CO■^TAU) + LC( 2 )*LM(7) + 

00009510 




? 

KXLC(4)«(B2I«Lri(7)+E2R»3IN(CO*TAU))+K»LC(5)» 

00009520 




7 

SIN(CO^<TAU) 

00009530 



c 



00009540 

ISN 

0536 


LC(7) = 

-LC(l)i«(E2I«Ln(7)+E2RK5IM(CO)‘TAU))-LC(2)*3IN(CO*TAU)* 

0CCC95S0 




7 

KXLCC4U(LH( 7 )«B2R-B2U<SIN( CO*TAU ) )+K^<LC(5 )<*Lm 7 ) 

OOCO'3560 



c 



00009570 

ISN 

0537 


LC( 8 ) = 

LC(3)*LM(7) 

C0009530 



c 



00009590 

ISN 

0533 


LC(9) = 

-LC(3)»<SIH(CO»TAU) 

000096CO 



c 



00009510 

ISN 

0539 


LC(IO) = 

LC(6)»LH(17) + LC(7)f*LH(21)+LCt8) 

00009520 



c 



00C0963O 

ISN 

0540 


LC(U) = 

LCC6)»LM(ia)+LC(7)*LM(22)+LC(9) 

00009540 



c 



00009550 

ISN 

0541 


LC(12) = 

LC(6)>fLM(20) + LC(7)>!L;i(23) 

00009660 



c 



OC009670 

ISN 

0542 


LC(13) = 

LC(6)«LM(19) + LC(7)»«Ln(24) 

COOC96SO 



c 



00009690 

ISN 

0543 


LC(14) = 

LC( 1 )i‘f E2I?^LrN 7 )+o2FifSIN( CO»TAU) )+LC( 2 )*SIN(COitTAU)- 

00009700 




7 

LC(4)*X*(BER>‘LN(7)-D2I«SIN(C0«TAU) )-LC(5)*Xi^L«(7) 

00009710 



c 



00009720 

ISN 

0544 


LC(15) = 

LCri)»^(C2.R;^LN(7)-B2I«SIH(CO»TAU); + LC(2)*LK(7)+ 

00C09730 




7 

LC(4)i<K*(B2I»UU7)+B2R«SIN(COifTAU))+LC(S)*K* 

00009740 




7 

SIN(CO*TA'J) 

00009750 



c 



0C009760 

ISN 

0545 


LC(16) = 

LC(3)^^3INCCO»TAU) 

00009770 



c 



OOOC9780 

ISN 

0546 


LC(17) = 

LCt3)*sLN(7) 

00009790 



c 



OC009SOO 

ISN 

0547 


LC(16) = 

LC(14)i«LM(17) + LC(15)«LM(21)+LC(16) 

00009310 



c 



00009320 

ISN 

0543 


LC(19) = 

LC(14)*LMa6) + LC(15)vLtt(22) + LC(l7) 

00009330 



c 



COOC9S40 

ISN 

0549 


LC(20) = 

LC(14)*LNC20)+LC(15)»LN(23) 

CCC09350 



c 



00009360 

ISN 

0550 


LC(21) = 

LC( 14 )»Lh( 19 ) + LC( 15 )*LN( 24) 

C0009370 



c 



0 0 C 0 1 Cu 0 

ISN 

0551 


LC(22) = 

LC(13)-LC(19)/LC(ll)«LCflO) 

00009590 



c 



00009900 

ISN 

0552 


LC(25) = 

-(LC(20)-LC{19)/LC(ll)»LCa2) )/LC(22) 

CG0Q9910 



c 



0CGC992Q 

ISN 

0553 


LC(24) = 

-(LC(21)-LC(19)/LC(ll)*LCa3))/LC(22) 

00009930 



c 



00009940 

ISN 

0554 


LCC25) = 

(CI-CR»LC(19)/LC(11) )/LC(22) 

00009950 



c 



00009930 

ISN 

0555 


RHFF = 

LC( 23 )»RC+ LC( 24 )»fIC+LC( 25 ) 

00009970 



c 



00C09980 
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rSN 

0556 


LC(26) = 

-(LC(20)+LC(1S)«LC(23) )/LC(19) 

03009990 




C 



OOCICCOO 


ISH 

0557 


LC(27) = 

-(LC(21) + LC(lS))iLC(24) )/LC(19) 

COOlCOiO 




C 



0C01C020 


ISN 

0553 


LC(2S) = 

(Cr-LC(25)>fLC(18))/LC(19) 

OC01C030 




C 



CCOlCC-rO 


ISM 

0559 


IRFF = 

LC( 26 )--<RC + LC( 27)-*IC+LC( 28 ) 

0CC10050 




C 



CCC10060 


ISM 

CS60 


IVPD = 

LM( 21 ) vrrf.^+LJ-N 22 )»IRFF + LM( 23)*RC + LM( 24 )*IC 

00010070 




c 



00010030 


ISN 

0561 


RVFD = 

LM( 17);<:3:^FF+LM(1S)»IRFF + LM(19)«IC + LH{20)»(RC 

00010090 




c 



00010100 


ISN 

0562 


R.NPPE = 

-UE'DE/( CO^TA’J )*! 32R!*RVFD!<( C05( CO^TAU )-l )-B2I»IVFDi* 

00010110 





*> 

(CGS(CC>TAU)-l)-IVPD>>32R«SIN(CO^TAU)-B2I'=RVPD»fSIN(CO» 

00010120 





•> 

T.VJ) )-(X+CCv:VE)/(CO>;TAU)»(RVFD»(COS{CO»tTAU)-l)-IVPD* 

0001G130 






SINlCO-iTAU) ) 

CC01C140 




c 



0C01O150 


ISN 

0565 


IM.=?S = 

-L'E^’ DS/! CC’^TAU )*( IVFD'’32R>f ( CQS( CO>fTAU )-l ) +B2I»RVFO»^ 

0C01C160 






(C03(CC !T/U)-l)+BCR^<RVPO)fSIN(CC>^TAU)-52I^IVPD»SIN(CO# 

00010170 





7 

TAUn-(K+CO«VE)/(COi;TAU)«(IVPDit(COS(CO»TAU)-l)+RVFD* 

CCOICISO 





7 

SI!UCC*T,‘.U) ) 

00010190 




c 



0001C200 


IS^^ 

0564 


RMOFF = 

pr;ppE/scs5x»(K2 

00010210 


ISN 

0565 


lilCFE = 

IMPPE/SOSEX'i»^2 

00010220 




c 



00010230 


IS!.' 

0566 


R.NSSFE = 

(GAl:;iA“l )/(2'^Sn5EX«CE)*.'?NPPE 

00010240 


ISN 

0567 


IM53PE = 

( g.v;ma-i j/( c^sc jEXS'De )«imppe 

00C1C250 




c 



C0010260 




c 

IRROTATIONAL 

VELOCITY PERTURBATIONS AT THE EXIT 

00010270 




c 



000102SO 


ISN 

0568 


RITVPE = 

1/TAU^( RVPD»( C03( COXTAU )-l )-IVPD«SIN( CO^TAU ) ) 

00010290 


IS.N 

0569 


IITVPE = 

1/TAUxC IVFDx( C05( COxTAU)-! ) +RVFDxSIN( CO^TAU ) ) 

COC1O5C0 




c 



00010310 


I3.N 

0570 


RIAVFE = 

l/(COxTAU)>^(B2Rxf;VPOx(COS(CO»TAU)-l)-B2IxiVPD>f 

00010320 





7 

( cos; COXTAU )-l )-IVF0xE2Ri(SIN( COXTAU )-B2lxRVFD* 

00010330 





7 

SlN(CO'fTAU) ) 

00010340 




c 



00010350 


ISN 

0571 


IIAVPE = 

1/(C0xTA'J)x(82R«IVPD»(CCS(C0xTAU)-1)4B2IxRVPD» 

00010360 





7 

( cost CC-TAU )-l )*RVFCX32PXSIN( CO»TAU )-B2I*IVPD« 

O-COIOSTO 





7 

SIN(CO!*TAU) ) 

00010330 




c 



00010390 




c 

ROTATIONAL VELOCITY FERTURSATICNS AT THE EXIT 

OOOIC ;00 




c 



C0C1C410 


ISN 

0572 


RRAVPE = 

1/t ( R«?f2+cC-;«2 )^TAU)x(RRFF»(COS( CO»<TAU )-l )-IRFF* 

C0C1C4E0 





7 

SIIKCOxtA’J) ) 

OC01C430 


ISN 

0575 


IRAVPE = 

l/( (Ri-:-2 + CC”^2)*TAU)»f(IRFF*f(COS(CO*TAU)-l)-RRFFx 

00010440 





7 

SIN(COx-TAU) ) 

00010450 




c 



OC'!10460 


ISN 

0574 


RRTVPE = 

-R/CQVRRAVPE 

00010470 


ISN 

0575 


IRTVPE = 

-R/CO:i IRAVPE 

COC1C4CO 




c 



00010490 


IS!; 

C576 


IPIU = 

(Ii;PPItINrP)/2.0. 

00010500 


IS!; 

0577 


RPIU = 

(KNrPI+RN??l/2.0 

0CC1G510 


ISN 

0573 


IPCU = 

(IMFP+INPFU)/2.0 

OOC10520 


ISN 

0579 


RP2U = 

(RMPP+RMPPU)/2.0 

00C1Q530 


ISN 

0500 


IPS'J = 

(IFOS+INPFE )/2.0 

C001CE40 


ISN 

0501 


RP3U = 

(RFDS+Rr1PPE)/2.0 

00010350 




c 



00010560 


ISN 

0532 


RPIL .= 

RP1U»C0S( SIG.NAT ) + IP1U«SIN{ SIGMAT ) 

00010570 
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ISN 

C533 

IPIL = 

IP1UVC0S( 3IG^:AT )-RPlU!«5IN( SIGMAT ) 

00010530 

ISN 

053 A 

RP2L = 

RP2C’ fC0S(Src:!AT)+IF2U^3Ill(S:G!;AT) 

00010590 

ISM 

0335 

IP2L = 

IP:U-<CC3( SIGMAT )-RP.:U=<SIN( SIGMAT ) 

000106CO 

I5.M 

0386 

RP3L = 

R?;L-CC5( SICMAT ) xlPlU^fSIfU SIGMAT ) 

00010610 

I5.M 

0587 

IP3L = 

IP3'Ji!CC3( SIGMAT )-RP3U-SIN( SIGMAT) 

00010620 



C 


00010630 

ISN 

0583 

RCLU = 

_ (RPlU’‘XSTAP+"F2L;'>f(XS-XSTAR )+RP3U»(C-XS) )/B 

00010660 

ISN 

0569 

ICLU = 

(IP1U=(XSTAR+IP2U»(XS-XSTAR)+IP3U»(C-XS) )/B 

00010650 



C 


00010660 

ISN 

0590 

RCLL = 

(RP1L^(XSTAR-DELTAJ'CCS(ALPCH) )+RP2L*(XS-XSTAR) + 

OC010670 



7 

RP3L«( C-X3+DEI.TA)‘C0S( ALFCH ) ) )/B 

00010680 

ISN 

0591 

ICLL = 

( IP1L>(XSTAR-DELTA^JC0S(ALFCH) ) + IP2L«(XS-XSTAR) + 

0C01C690 



9 

IP3L^( C-X3+DELTA«COS( ALPCH ) ) )/B 

00010700 



c 


00010710 

ISN 

0592 

RCL = 

-RCLUtPCLL 

00010720 

ISN 

0593 

ICL = 

“ICLU+ICLL 

00010730 



C 


000107AO 

ISN 

059«* 

RCNU = 

-( RP1U'‘XSTAR«( Z«C-XSTAR/2 )4RP2U*( XS-XSTAR )*( 2xC- 

00010750 



9 

( XSTAR+XS)/2 ) + RP5’J'^( ( C-XS >•( Z»C-( C+XS )/2 ) ) )/(B^*2 ) 

00010760 



c 


00010770 

ISN 

0595 

ICMU = 

-( IP1U'X5TARV( Z<‘C-XSTA5/2 )+IP2U“t(XS-XSTAR )»( Z«C- 

OC010780 



9 

(XSTAR + XS)/2) + lPl'j:^( (C-XS )i*(24^C-( C+XS )/2) ) )/(B^*2) 

00010790 



c 


00C10600 

ISN 

OSO'fe 

RCNL = 

( RPl ( XSTAR-DE LTA-COS( ALFCH ) )*( Z+C- ( XSTAR-DELTA* 

OOOlColO 



9 

CCS; ALFCii ) )/2 ) + RP2L^-tX5-X3TAR ) -f( Z>'C-(XS+X3TAR-2*;OELTAH 

00010320 



> 

CCS( ALFCH ) )/C )+RP3L«(C-XS+CELTA«COS( ALPCH ) )K(Z«C- 

CC01C330 



9 

( XS+C-DELTA«COS( ALFCH ) )/2 ) )/( ) 

0001C3A0 



c 


0OC10G5O 

ISN 

0597 

ICML = 

{ IP1L'<(XSTAR-DELTA’'C0S( ALFCH ) )•( Z*C-( XSTAR-DELTA* 

00010360 



9 

CC5( ALPCH ) )/2 ) + IF2L*(XS-XSTAR)*(Z>fC-(XS+XSTAR-2«DELTA»4 

00010370 



9 

CC3( ALFCH) )/2 ) + IP3L»f( C-XS+OELTA»COS( ALPCH ) )*(Z*C- 

0C01CG30 



9 

(X5+C-DELTA4‘C0S( ALFCH) )/2) )/(B**2) 

00010390' 



c 


00010900 

ISN 

0596 

Rcri = 

RCMU+RCML 

C001C910 

IS!( 

0599 

ICM = 

ICMN+ICML 

0001C920 



c 


00010930 

ISN 

0600 

IF (11. EQ. 

1) GOTO 53 

0001Q9AO 

ISN 

0002 

A‘,R(2) = 

( -RCL/( FI*:<’Of2*ALFBAR ) )/12 

00010950 

ISN 

0603 

AAK2) = 

( -ICL/( PI>K+if2='ALF3AR ) )/12 

00010960 

ISN 

C6C^ 

E.'Rca) = 

RC:i/( PI».;<»: + £i^ALF2AR )/12 

C0010970 

ISN 

0605 

BAK2) = 

ICM/C FlrHi'^fCvALPSAR )/12 

OC01O93O 

ISN 

06 3? 

AARK = 

(AAR(2)K.Ki<>iC) 

CC010990 

ISN 

0607 

AAIK = 

(AAI(2) 

COOllOOO 

ISN 

0503 

EAr:< = 

[EAPCZli^X^^C) 

COOllOlO 

ISN 

0609 

DAIK = 

(DAI(2)i^:<**2) 

0C011020 

ISN 

0610 

AfirK = 

( AHR(2)^K*i+2) 

00011030 

ISN 

0611 

AHIK = 

(AHKZI + X^'^Z) 

OOOllCAO 

ISN 

C612 

= 

Z ) 

OOOUO50 

ISN 

0613 

CtllK = 

(BHI(2)^'K«w2) 

C0011C50 

ISN 

0619 

GOTO 


C0C11070 



c 


OCOliCSO 

ISN 

0615 

33 AHR(2) = 

(E' RCL/(PI=^K+!>;2>H) )/12 

00011090 

ISN 

0616 

AHK2) = 

(B»iCL/(Pi;;i<».i'2>Hn/i2 

00011100 

ISN 

0617 

EHR(2) = 

-E^RCM/(PIiX«J-2«H)/12 

COOllllO 

ISN 

0613 

BHK2) = 

-B>flCM/( PISX*»2*H )/12 

00011120 



C 


00011130 

ISN 

0619 

3A WRITE (6, 6666) LC 

OOClllAO 

ISN 

06^0 

6666 FORI1ATC-' 

i' LC',1Q(E8.2,3X)) 

00011150 

ISN 

0621 

WRITE ( 6 , AAO ) RMAPI , IMAPI .RMAPT , INAPT ,RMAP , IMAP 

00011160 
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ISM 

0622 


MRITE(6,450) PASE.IACE 

00011170 

ISM 

0623 


i:r>ITE(6,460 ) R5oP,ISSP,RSCSU,IS3SU,FM3SPI,ir;S5PI 

CC011130 

ISM 

0624 


i:SITEl6,470 ) PMSSPS, ir.ISFF 

03011190 

ISM 

Cl.23 


u^iTS(6,4so ) r:r?,ir;F?,'^:.;-;'u,i::?ru,prDS,iPDS 

C00112PO 


Zi-2b 


i-niTEtb.MO0 1 p.i;~ri,ii;rri,r::rrE ,i:.rps 

03011210 

ISM 

0627 


i'PiTE(6,EC3 ) p;'SP,i:'ir,s;;sr;j,n":FU,sDDS,iDDS 

00011220 

ISM 

C623 


^"i:e( 6,510) o;-i .r.:srs .imdps 

00011230 

ISM 

0629 


i;sit:{6,520 ) L'Sp,usi,f::3p.i:t'^ 

00011240 

ISM 

C630 


UP I T E ( 6 , 5 : 0 ) V 1 ' p , V 1 A : , V r p , V 1 c I , V 1 c R , V 1 c 1 

00011250 

ISM 

0631 


i:PITSt 6 ,543 ) VIP ,V1I 2R , V2 1 , V3AP , V3AI 

00011260 

ISM 

0632 


i;PITE(6,550 ) V3SP ,VISI ,V3SP,VSCI,V3P,V3I 

00011270 

ISM 

C:i53 


UPITE(6.560 ) nVF'J,IVFJ,r:',’F5,IVF3 

0CC11230 

ISM 

C j 3-^ 


U"ITE(6,570 ) r:;VFJ,i:'.VPU,PITV?I,riTVPI,RIAVPI,IIAVPI 

00011290 

ISM 

0635 


U'PITEto ,520 ) RIAVFE , I lAVTE ,RiTVPE , IITVPE .RRAVPE , IRAVPE 

00311300 

ISM 

0636 


UPITE(6,S93) PPTVPE.IPTVPE 

00011310 

ISM 

0637 


UPITEt 6,630) rUDS,IE'SS,!'S3P,USSI 

00011320 

ISM 

0633 


UPITE[6,610) Cl, CP, IC, PC 

00011330 

ISM 

06S9 


UPITE(6,620) nr^FF.lPFF 

OC 01 1540 

ISM 

0640 


i:PITE(6,630) fiPl'J,lPlU,RP2U,IP2U,RP3U.IP3'J 

0CC11350 

ISM 

C641 


UPITE(6,64C) F.P1L,IP1L,RF2L,IF2L,RP3L,IP3L 

C0C11360 

ISM 

06^2 


WPITE(6,650) RCLU,1CLU,PCLL,ICLL>RCL,ICL 

03011370 

l?j)i 

0643 


i:pns(6,660) F.cr’j,ic;vj,Rc:;L,ic,iL,pcii,:cM 

C3011330 

ISM 

0644 

440 

FORMAT! ,T11, 'PrM^I' ,T23, 'IMAFl' ,745, 'PriAPT' ,T62, 'IMAPT' ,T79, 

00011390 




? ’RMAP' ,T96, 'II:AP'/4X,6(F15,6,2X) j 

OOC114CO 



C 


CC011410 

ISM 

0645 

450 

FCPMATC ,711, ‘RACE' ,728, ' lACE '/4X,2( F15.6 ,2X)) 

00011420 



c 


0CC1143O 


0646 

460 

FCRMATt ,711, 'RSSP' ,723, ' ISS?' ,745, ‘R5QSU' ,762, 'ISOSU' ,T79, 

00011440 




? 'RMSSPI' ,796, •IMS3?I’/4X,6(F15.6,2X)) 

00011450 



C 


00011460 

ISM 

0647 

470 

FCRMATt ,711, 'RMSSPE' ,723 , ' IMSSPE ' /4X, 2t F15 .6 , 2X ) ) 

00011470 



C 


000114CO 

ISM 

0648 

430 

FCRMATt ,711, 'RMPP' ,726, 'IMFP' ,745, ‘RMPFU’ ,762, 'IMPFU' ,779. 

00011490 




? 'RFOS' ,796, ‘IF2iS’/4X,6(rl5.6,2X) ) 

OCOllSCO 



C 


00011510 

IS!J 

0649 

490 

FCRMATt '-• ,711, 'RMPPI' ,723, ' IMPPI ‘ ,745, ' RMPPE ' ,T62 , ' IMPPE ' 

00011520 


PAGE £0 


I£:) C650 


ISII 0651 


? /^X,‘4(F15.6,£X) ) 

SOO FCRilAK ,T11, 'RMO?' ,T23, 'iriDP' ,TA5i 'RMDPU' ,T62 IMDPU' i_ 
T79, 'RCOS' ,T<;6, ‘IC2S V‘4X,6(rl5.6,£X) ' 

510 rORKAK •-Mil, 'P;:DPI' ,T2B, 'ICDPl' ,T4S, 'RMDPE',T62, ’IMDPE' 

? /4X,4(F15.6,2X) ) 


I5N 0652 


520 FORMAT( ,T11, 'UGR' ,T2S, 'USI ' ,T45, 'RMSP' ,T62, ‘IMSP’ 
? /AX,4(F15.6,2Xn 


1511 0653 


ISM 0654 


ISM 0655 


530 FCRMAK •-' ,T11,'V1AP' ,T23,‘V1AI' ,T45 , ' VIDR ’ ,T62 , ' VIBI ’ ,T79, 

? •V1CR’,T93, ■V1CI’/hX,6(F15.6,2X)) 

_540_ FC'RMAK ’ - ' ,T11 , * VIR • ,T28, 'Vll' ,T45, ' V2R ' ,T62 , ' V2I^,T79^ __ 
1 ■ ’VSAR' ,T96,'V3AIVAX,6(F15.6,2X)) ^ 


550 FCRHAK ,T11 , • VI3R ‘ ,T23, ’ V33I * ,T45, ' V3CR ' ,T62 , • V3CI ' ,T79, 
? 'V3R' ,T96, 'V3I'/4X,6(F15.6,2X) ) 


ISM 0656 


560 FCRMATt ,T11, 'RVPU' ,T23,'IVPU* ,T45, 'RVPD* ,T62, 'IVPD' 
7 /4X,4(F15.6,2X) ) 


0C011530 
00011540 
00011550 
'00011560" 
00011570 
000115GO 
00011590 
C00116C0 ' 
00011610 
0C011620 
00011630 
' 00011640 
00011650 
OC011660 
00011670 
00011680' 
00011690 
00011700 
CC011710 
00011720' 
00011730 
00011740 
00011750 
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«VERSION 1.3.0 
ISH 0657 


IS!1 0667 
ISN 0663 
ISIJ 0669 
ISM 0670 
■jEM 0671' 


(01 80) UMST SYSTEH/370 FORTRAM H EXTEMDED (EMHANCED) 

570 FORMAK ,T11, ’RllVFU' ,T28, ’ItlVFU' ,T<+5, 'RMITVPI' ,T62, 'IMITVPl' 
’ T79,'RMIAV?I‘ ,T96, 'irilAVPI VAX,6(F15.6,2X)) 

_C . 

530 FCRHAK ' 1 ' ,T11 , 'RMIAVPE ■ ,T28, ' IMIAVPE ' ,TA5, 'RMITVPE' iT62 , ’ 

? 'IMirVPE' ,T79, 'R.'IRAVPE- ,T96, 'IMRAVFEVAX,6(F15.6,2X)) 

C 

590_FORMAT( ' - ' ,T11 , ' RriPTVPE ' ,T28, ’ IMRTVPE VAX.2( F15.6.2X) ) 

C 

600 FCRHAK Til, 'RUGS' ,T28, 'IL'DS' ,TA5, 'WDSR ' ,T62, 'WDSI* 

? /4X,4(Fl5.6,2Xn 

_C __ 

6*0*’ FORriAT( '-^Tll, 'Cl' ,T28, 'CR' ,TA5, 'IC' ,T62, 'RC' 

7 /AX,A(F15.6,2X) ) 

C 

620 _FORHAT( ,711 , 'RPFF ' ,T2S, 'IRrF’/AX,2(F15.6,2X) ) 

C 

630 FORHAT( ,T11, 'RPIU' ,T20, 'IPIU' ,TA5, 'RP2U' ,T62, 'IP2U' , 

7 T79, 'RP3U' ,T96, 'IP3'J'/AX,6(F15.6,2X)) 

_C _ 

6A0 “fORHAT( ’-\Tlli 'RPIL' ,T28, 'IPIL' ,TA5, 'RP2L' ,T62, 'Ip’eL' , 

7 T79,‘RP3L' ,T?6 , ‘ IP3LV^X,6( F15.6 , 2X) ) 

C 

_650 FORHAK ,T11, 'RCLU' ,723, 'ICLU' ,765, 'RCLL' ,762, 'ICLU, 

7 T79,'RCL',T96,’ICL'/6X,6(F15.6,2X)) ' 

660 FCRMAT( ,711, 'RCHU' ,723, 'ICnU' ,765, 'RCHL' ,762, 'ICML' , 

7 779, 'RCtV ,796,’IC!I'/6X,6(F15.6,2X)) 

_C 

is cct^TiKu:' '■ 

RRITE(6,670) AAR(2), AAK2), BARI2), BAK2) 
i;PITE[6,630) AHR(2), AH1(2), CKR(2), BHK2) 

i:“ITE(6,690) AAPK, AATK, BARK, BAIK _ 

K.9ITE(6,700) AMRK, AHIK, e,4RK. EHIX 

C 

670 FCRMATt '-' ,711, 'AAR' ,728, 'AAI' ,765, ’BAR' ,762, 'BAI' 

_ _7 /6X,6( rl5.6,2X) ) _ _ 

680 FORHATt '-' ,711, ‘ AilR' , 726, ’ AHI ' ^765 BHR ' ,762, ' BHI ' 

7 /6X,6(F15.6,2X)) 

690 FCRHATt '-' ,711. 'AARK' ,723, 'AAIK' ,765, 'BARK' ,762, 'BAIK' 

_ _? /6X,6<F15.6,£X)) _ _ 

70b FORHATt ,711 , ' AlIRK ' ,728, ' AHIK '",765 .''BHRK ' ';t62', ' BHIK ' 

7 /6X,6(F13.6,2X)) 


ISH 0676 
'ISM' 0677' 


DATE 60.353/15.02.69 

, CD011760 

C0011770 

00011760 

0C01179O 

CCCllSOO 

c:cii3io 

COOU820 

O0C11S3O 

C0C11360 

00011350 

0C0U360 

00011370 

00011380 

OOC11S90 

000119C0 

0C01191O 

C0011920 

00011930 

00011960 

00011950 

00011960 

00011970 

00011930 

00011990 

OCO120CO 

OC012010 

00012020 

00012030 

00012060 

00012C50 

CC012060 

OCC12070 

00012030 

00012090 

00012100 

00012110 

00012120 

0CC12130 

00012160 

00012150 

00012160 

0CC12170 

00012180 

00012190 






R 7 R 

A N 

C R 

OSS 

R E 

F E R 

EMC 

E 

LIS 

TIN 






SYH30L 

IM7ERMAL STATEH2M7 IX'MZ 

ERS 















B 

0C09 

0011 

0017 

0155 

0156 

'0157“ 

'0660' 

"0661' 

“0662“ 

0663" 

0666~ 

0667' 

0659 

"0660 

' 0661“ 

'0662 

0665 

'0666 

“0563 


0503 

0506 

0506 

0506 

0507 

0512 

0512 

0513 

0513 

0516 

0515 

0588 

0589 

0590 

0591 

0596 

0595 

0596 

0597 


C615 

0616 

0617 

0613 
















C 

0CC5 

0CO9 

0017 

0021 

0630 

0651 

0632 

0632 

0633 

0633 

0636 

0636 

0635 

0635 

0636 

0637 

0660 

0661 

0662 


0662 

'■ 0663 

0663 

0666" 

' 0666 " 

0667" 

0667 

0503 

■"0506 

0512 

0512 

0512' 

0512" 

0513 

0513 

'0513 

0513 

0516 

0315' 


C533 

0539 

0590 

0591 

0596 

0596 

0596 

0596 

0596 

0595 

0595 

0595 

0595 

0595 

0596 

0596 

0596 

0596 

0596 


0597 

0597 

0597 

0597 

0397 
















C005 

0017 


















.H 

"CC05 

0669' 

“0650'" 

0651~ 

'0652' 

0653“ 

■0656' 

"0655' 

“‘0656“ 

0659““ 

0660" 

0661 

"066r 

“0662“ 

~0A62~ 

■0665“ 

066r“ 

”0503“ 

“oso^" 


0506 

0507 

0615 

0616 

0617 

0618 














I 

0006 

0020 

0165 

0165 

0165 

0166 

0166 

0166 

0178 

0179 

0188 

0198 

0193 

0199 

0199 

0202 

0238 

0239 

0264 
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AVERSION 1.3.0 tOl MAY BO) UKST SYSTEM/370 FORTRAN H EXTEllOcD (ENHANCED) DATE 80 .353/15.02 PAGE 22 






R T R 

A N 

C R 

OSS 

R E 

F E R 

E N C 

E 

LIS 

TIN 






SYMBOL 

INTERNAL STATEMI.NT 

' NUMBERS 
















J 

CC30 

0231 

0231 

0231 

0235 

0236 

0236 

0236 

C25'6 

0257 

0257 

0257 

0257 

0275 

0276 

0276 

0276 

0276 

0290 


0291 

0291 

0291 

0335 

0356 

0356 

0356 

0 366 

0367 

0367 

0567 










CCOA 

0021 

0022 

CO 9-9 

0095 

0096 

CC96 

0097 

0097 

0058 

0062 

0065 

0079 

0030 

OOS3 

0039 

0039 

0166 

0166 


C163 

0153 

0163 

0170 

0170 

0171 

0171 

0172 

0172 

0172 

0173 

0173 

0173 

0179 

. 0179 , 

0175 

0175._ 

0176 . 

0176 . 


0199 

0199 

0201 

02C9 

0209 

0209 

C2CS 

0205 

0206 

C2C6 

0207 

0207 

0209 

0215 

0216 

0218 

0229 

0227 

0239 


02^1 

0292 

0292 

0292 

0293 

0293 

0295 

0297 

0252 

0261 

0261 

0262 

0262 

0265 

0272 

0299 

0309 

0305 

0306 


C3C7 

0303 

0309 

0310 

0311 

0319 

0320 

0322 

0329 

0526 

0327 

0323 

0329 

0330 

0331 

0332 

0333 

0339 

0335 


0335 

0337 

0 353 

0333 

0339 

0390 

0391 

0392 

0393 

0399 

0399 

0395 

0396 

0397 

0593 

. 0399 

0350 

0351 

0352 , 


0 353 

0379 

0379 

0331 

0322 

0336 

0326 

0337 

0337 

03S3 

0339 

0390 

0390 

0391 

0391 

0392 

0393 

0959 

0990 


0991 

0992 

0526 

0526 

0527 

0527 

0523 

0528 

0523 

0529 

0529 

0529 

0531 

0539 

0535 

0535 

0536 

0536 

0593 


0S93 

CS99 

0599 

0562 

0563 

0602 

C603 

C609 

0605 

0606 

0607 

0603 

0609 

0610 

0611 

0612 

0613 

0615 

0616 


0517 

C613 


















« 

0003 

00 09 

0312 

C313 

0319 

0315 

0316 

0317 

0313 

0319 

0320 

0321 

0322 

0323 

0329 

0325 

0326 

0326 

0327 


0327 

0323 

0323 

0329 

0329 

0330 • 

0330 

0331 

0331 

0332 

0332 

0333 

0333 

0329 

0339 

0335 

0335 

0336 

0336 


0337 

0337 

0333 

0333 

0339 

0339 

0390 

0391 

0392 

0393 

0399 

0395 

0396 

0397 

0393 

0399 

0350 

0351 

0352 


0333 

0359 

0359 

0356 

0356 

035'S 

035S 

0359 

0359 

0360 

0360 

0361 

0361 

0362 

0362 

0363 

0363_ 

0369 

0369 


0 5 

C 365 

0911 

09 77 

0977 

0977 

C977 

0977 

C977 

0977 

0977 

0977 

0977 

C977 

0977 

0977 

0977 



R 

c :?2 

0333 

0323 

0333 

0303 

0313 

0339 

0339 

0532 

0532 

0572 

0573 

C579 

0575 






S 

0023 

o:.69 

0370 

0371 

0372 

0373 

0379 

0375 

0376 

0376 

0376 

0577 

0377 

0377 

0913 

0979 

0979 

0930 

0960 


09o7 

c;:.7 

0937 

0937 

0933 

0933 

0-33 

0903 












z 

0017 

09 70 

0-31 

0932 

0933 

C939 

C435 

0936 

0937 

C990 

0991 

0992 

0993 

0996 

0997 

0512 

0513 

0519 

0515 


0599 

0599 

05‘-9 

0595 

0595 

G595 

C596 

C596 

0596 

0597 

0597 

0597 








AC 

C0C5 

0159 

0159 

0165 

0165 

0165 

0165 

0166 

0166 

0166 

0166 

0198 

0193 

0198 

0199 

0199 

0199 

0233 

0238 


02 39 

0239 

















_ 

AO 

o:;5 

ClOO 

0160 

0160 

0161 

0293 

0326 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0339 

0335 

0336 

0337 


0333 

0339 

0390 

0390 

0391 

C392 

0393 

0399 

0395 

0396 

0397 

0398 

0399 

0350 

0351 

0352 

0353 

0503 

0506 


0312 

0513 


0529 

05C5 

C525 

0528 

0529 












Cl 

0525 

0559 

.0553 

0533 
















CL 

C093 

03-0 

0391 

0392 

0393 

0399 

0545 

0396 

0397 

0393 

0399 

0350 

0351 

0352 

0353 

0359 

0359 

0359 

0356 


0 355 

0 5.i«'0 

0356 

0333 

0355 

C353 

0333 

0339 

0359 

0359 

0359 

0360 

0360 

0360 

0260 

0361 

0361 

0361 

0361 


0332 

0Z62 

0362 

0362 

0353 

0363 

0363 

0363 

0369 

0369 

0369 

0269 

0365 

0565 

0365 

0365 

0367 

0367 

0367 


0357 

0357 

0912 

0975 

0975 

0975 

0975 

0975 

0975 

0975 

0975 

0975 

0975 

0975 

0975 

0976 

0976 

0976 

0976 


09 75 

0976 

0476 

0476 

0476 

C976 

0976 

0476 












CO 

0033 

0099 

0095 

0096 

0096 

0097 

0C97 

C05S 

0062 

0065 

0079 

0030 

0083 

0165 

0165 

0165 

0165 

0166 

0166 


0156 

0166 

0167 

0167 

0167 

0167 

0163 

0163 

0163 

0168 

0163 

0168 

0169 

0170 

0170 

0170 

0171 

0171 

0171' 


0172 

0172 

0172 

073 

0173 

0173 

0193 

0193 

0193 

0199 

0199 

0199 

0199 

0200 

02C0 

0201 

0201 

0209 

0209 


0209 

02 05 

02C5 

C2C3 

0206 

0 <! 06 

0206 

0207 

0207 

0207 

0233 

0233 

0239 

0239 

0290 

0291 

0291 

0292 

0292 



C293 

0293 

0293 

0251 

0261 

C261 

0262 

0262 

0262 

0378 

0373 

0373 

0373 

0379 

0379 

0379 

0379 

0380 


0330 

0331 

0331 

0332 

0333 

0 3'33 

0333 

0333 

0^33 

0339 

0239 

0335 

0336 

0236 

. 0336 

0337 

0337 

0387 

0383 


0339 

0390 

03-^0 

0'590 

0391 

C391 

0391 

0392 

0393 

0991 

0991 

0991 

0991 

0991 

0991 

0991 

0991 

0991 

0992 


0592 

0992 

C>=2 

0952 

0992 

0992 

C992 

0492 

0997 

0997 

0993 

0993 

0999 

0999 

0999 

0999 

0999 

0500 

0330 


0500 

0500 

0500 

0530 

0530 

C531 

0531 

0532 

0532 

0533 

0539 

0539 

0535 

0535 

0535 

0536 

0536 

0536 

0533 


0593 

0593 

0593 

0599 

0599 

0344 

05 95 

0562 

0562 

0562 

0562 

0562 

0562 

0562 

0562 

0562 

0563 

0563 

0563 


0553 

Cl;0 3 

0553 

crc3 

0363 

0563 

0560 

0563 

0569 

0569 

0570 

0570 

0570 

0570 

0570 

0571 

0571 

0571 

0571 


0571 

0572 

0572 

0572 

0573 

0575 

0573 

0579 

0575 











CR 

0527 

0559 

0633 

















CO 

0051 

0100 

01C5 

0116 

0123 

0123 

0579 

0522 

0523 

0529 

0529 

0525 

0525 







DE 

0057 

0105 

0116 

0129 

0129 

0162 

0373 

0573 

0378 

0579 

0379 

0379 

0330 

0381 

0383 

0526 

0527 

0528 

0529 


0530 

0530 

0331 

C531 

0532 

0533 

C534 

0562 

0563 

0566 

0567 









DI 

0023 

0100 

0103 

0116 

0122 

0123 

0129 

0125 

0126 

0127 

0123 

0129 

0130 

0131 

0132 

0133 

0139 

0135 

0136 


0137 

0133 


















DT 

0102 

0103 

0109 

0116 

0125 

0125 

0182 

0182 

0133 

0139 

0139 

0185 

0192 

0193 

0199 

0195 

0203 

0219 

0225 


0293 

0250 

0268 

0270 

0296 

0306 

0307 

0321 

0359 

0337 

0397 

0352 








DU 

0032 

0109 

0116 

0122 

0122 

0161 

0295 

0326 

0328 

0390 

0393 

0379 

0983 

0989 

0522 

0523 




FC 

0003 

0233 

0239 

0290 

0291 

0292 

0292 

0292 

0292 

0292 

0292 

0292 

0293 

0293 

0293 

0293 

0293 

0293 

0293 


0299 

0299 

0299 

0295 

0295 

0296 

0296 

0296 

0297 

0297 

0297 

0293 

0293 

0293 

0299 

0299 

0299 

0250 

0250 
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R T R 

A N 

C R 

OSS 

R E 

F E R 

E N C 

E 

LIS 

TIN 






SYMBOL 

INTERNAL STATEMENT 

■ NUM3E 

:rs 
















C251 

0251 

0251 

0252 

0252 

0252 

0253 

0253 

0253 

0254 

0254 

0254 

0254 

0255 

0255 

0255 

0255 

0257 

0257 


0257 

0257 

0259 

0259 

0260 

0263 

0261 

0261 

0261 

0261 

0261 

0262 

0262 

0262 

0262 

0262 

0263 

0263 

0263 


0264 

0264 

0264 

0265 

0265 

0265 

0266 

0266 

0266 

0267 

0267 

0267 

0268 

6268 

0268 

0269 

0269 

0269 

0270 


0270 

0270 

0271 

0271 

0271 

0272 

0272 

0272 

0273 

0273 

0273 

0273 

0274 

0274. 

0274 

0274 _ 

0276 

0276 

0276_ 


0276 

0276 

0278 

0279 

0279 

OcSO 

0280 

0231 

0281 

0281 

0282 

0282 

0282 

0262 

0283 

0283 

0263 

0263 

02C4 


02S4 

0264 

0284 

0285 

0235 

0285 

0285 

0236 

0286 

0206 

0286 

0267 

0207 

0237 

0237 

02CG 

0283 

0268 

0288 


0288 

0289 

0239 

0289 

0269 

0289 

0291 

0291 

0291 

0291 

0291 

0409 

0467 

0467 

0467 

0467 

0467 

0467 

0468 


0468 

0468 

0463 

0463 

0463 















FE 

0003 

0163 

0164 

0165 

0165 

0165 

0165 

0166 

0166 

0167 

0168 

0169 

0170 

0170 

0170 

0170 

0170 

0170 

0170 


0170 

0171 

0171 

0171 

0171 

0171 

0171 

0171 

0171 

0172 

0172 

0172 

0172 

0172 

0172 

0172 

0172 

0173 

0173 


0173 

0173 

0173 

0173 

0173 

0173 

0174 

0175 

0176 

0177 

0177 

0177 

0177 

0177 

0178 

0173 

0178 

0178 

0178 


0178 

0179 

0179 

0179 

0179 

0179 

0179 

0130 

0180 

0160 

0180 

0180 

0130 

0180 

0160 

0130 

0160 

0130 

0181_ 


0181 

0181 

0131 

0181 

0181 

0161 

0131 

0181 

0131 

oiai 

0161 

0131 

0182 

0182 

0182 

0182 

0182 

0162 

0182 


0182 

0183 

0163 

0163 

0133 

0183 

0133 

0184 

0184 

01C4 

0184 

0164 

0164 

0184 

0184 

0184 

0184 

0164 

0135 


01*85 

0183 

0185 

0165 

01C5 

0185 

0185 

0165 

0185 

0165 

0185 

0186 

0166 

0186 

0186 

0186 

0166 

0186 

0186 


0187 

0187 

0137 

0167 

0187 

0187 

0133 

0183 

0183 

0183 

0139 

0189 

0139 

0189 

0190 

0190 

0190 _ 

0190 

0190 


0190 

0190 

0191 

0191 

0191 

0191 

0191 

0191 

0191 

0192 

0192 

0192 

0192 

0193 

0193 

0193 

0193 

0194 

0194 


0194 

0194 

0194 

0194 

0194 

0195 

0193 

0195 

0195 

0195 

0195 

0195 

0196 

0196 

0196 

0196 

0197 

0197 

0197 


0197 

0204 

0204 

0204 

0205 

02C5 

0205 

0206 

0206 

0206 

0207 

0207 

0207 

0203 

0208 

0209 

0209 

0210 

0210 


0211 

0211 

0212 

0212 

0213 

0213 

0214 

0214 

0215 

C215 

0216 

0216 

0217 

0217 

0218 

0213 

0219 

0219 

0220, 


0220 

0221' 

0221 ■ 

0222 

0222 

0223 

0223 

0224 

0224 

0225 

0225 

0226 

0226 

0227 

0227 

0242 

0242 

0242 

0243 


0243 

0243 

0244 

0244 

02^5 

0245 

0245 

0246 

0246 

0247 

0247 

0243 

0243 

0249 

0249 

0250 

0250 

0250 

0251 


0251 

0252 

0252 

0253 

0253 

0261 

0261 

0261 

0262 

0262 

0262 

0263 

0263 

0264 

0264 

0265 

0265 

0266 

0266 


0267 

0267 

0268 

0268 

0269 

0269 

0270 

0270 

0271 

0271 

0272 

0272 

0405 

0471 

0471 

0471 

0471 

0471 

_0471_ 


0471 

0471 

0471 

0471 

0472 

0472 

0472 

0472 

0472 

0472 

0472 

0472 

0472 

0472 






FM 

0003 

0193 

0199 

0203 

0201 

0202 

0203 

0204 

0204 

0204 

0204 

0204 

0205 

0205 

0205 

0205 

0205 

0206 

0206 


0206 

0206 

0206 

0207 

0207 

0207 

0207 

0207 

0208 

0203 

0203 

0209 

0209 

0209 

0210 

0210 

0210 

0210 

0211 


0211 

0211 

0212 

0212 

0212 

0212 

0213 

0213 

0213 

0214 

0214 

0214 

0215 

0215 

0215 

0216 

0216 

0216 

0217 


0217 

0217 

0213 

0213 

0213 

0219 

0219 

C219 

0220 

0220 

0220 

0220 

0221 

0221 

0221 

0221 

0222 

0222 

0222 


0223 

0223 

0223 

0224 

0224 

0224 

0225 

0225 

0225 

0226 

0226 

0226 

0227 

0227 

0227 

0228 

0223 

0226 

0228 


0223 

0229 

0229 

0231 

0231 

0231 

0231 

0233 

0233 

0233 

0233 

0234 

0234 

0254 

0234 

0236 

0236 

0236 

0236 


0236 

0254 

0234 

0255 

0255 

0257 

0257 

0275 

0273 

0274 

0274 

0276 

0276 

0408 

C469_ 

0469 

0469 

0469 

,0469„ 


0469 

0469 

0469 

0470 

0470 

C470 

0470 

0*470 

0470 

0470 

0470 









IC 

0004 

0523 

0555 

0559 

0560 

0561 

0633 













II 

0427 

0428 

0501 

06C0 
















LC 

0003 

C0C4 

0415 

0550 

0531 

0532 

0533 

0534 

0535 

0535 

0535 

0535 

0535 

0535 

0536 

0536 

0536 

0536 

0536 


■'0557 ' 

0537 

0538 

0533 ' 

0539 ' 

0539 

0539 

0539 

0540 

0540 

0540 

0540 

0541 

0541 

0541 

0542 

0542 

0542 

0543 


0543 

0543 

0543 

0543 

0544 

0544 

0544 

0544 

0544 

0545 

0545 

0546 

0546 

0547 

0547 

0547 

0547 

0543 

0548 


0548 

0543 

0549 

0349 

.0549 

0530 

C350 

0550 

0551 

0551 

0551 

0551 

0551 

0552 

0552 

0552 

0552 

0552 

0552 


0333 

0553 

0553 

0333 

0353 

0553 

0534 

0554 

0554 

0554 

0555 

0553 

0555 

0556 

0556 

0556 

0556 

0556 _ 

0557 


0557” 

0557 

'0557“ 

0557 

0553 

0553 

0553 

0538 

0559 

0559 

0559 

0619 








LM 

0003 

0004 

0378 

0379 

03C0 

0331 

0333 

0364 

0 385 

0336 

0366 

C3G6 

0386 

0336 

0536 

0336 

0386 

0387 

0387 


0337 

0537 

0337 

0337 

0337 

0387 

0 3 JO 

03C3 

0383 

03^3 

0389 

0389 

0539 

0369 

0390 

0390 

0590 

0390 

0390 


0390 

0390 

0390 

0391 

0391 

0391 

0391 

0391 

0391 

0391 

0391 

0392 

0392 

0392 

0392 

0393 

0393 

0393 

0393 


-0394' 

0394 

0394 

0394 

0394 

' 0395 

■ 0395 

0395 

0395 

0395 

0395 

0396 

0396 

0396 

0396 

0396 

0396 

0397 

0397 


0398 

0393 

0393 

0393 

0399 

0399 

0399 

0399 

0399 

0400 

0400 

0400 

0400 

0400 

0401 

0401 

0401 

0401 

0402 


0402 

0402 

0402 

0414 

0535 

0535 

0535 

0536 

0536 

0536 

0537 

0539 

0539 

0540 

0540 

0541 

0541 

0542 

0542 


0543 

0543 

0543 

0544 

0544 

0544 

054 6 

0547 

0547 

0548 

0548 

0549 

0549 

0550 

0550 

0560 

0560 

0560 

0560 


C561' 

■ 056 1‘ 

0561 

0561 
















MO 

0004 

0034 

0045 

0047 

0047 

0074 

0060 

0033 












MI 

0004 

0014 

0026 

0027 

0094 

0114 














MT 

0004 

0013 

0025 

0114 
















.M'J 

OCO<+”' 

"0035 

0044 

0046 

0046 

“0058 

0062 

0065 












FD 

0029 

0031 

0115 

0132 

0132 

0370 

0523 

0529 












PE 

0085 

0087 

0115 

0133 

0133 

0528 

0529 













PI 

0012 

0602 

0603 

0604 

0605 

0615 

0616 

0617 

0618 



_ 






. 
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:i*»F 0 

n T R 

A N 

C R 

OSS 

R E 

PER 

E N C 

E 

LIS 

TIN 






SYMBOL 

INTERNAL STATEMENT 

■ fTj:;3E 

!RS 















?T 

0025 

0115 

0134 

0134 

0203 

0296 














FU 

0024 

CC29 

0115 

0131 

0131 

0293 

0369 

0370 

0370 

0372 










RC 

0329 

0555 

0359 

0560 

0561 

0633 














TE 

0036 

C0S7 


















L'£ 

0091 

0146 

■ 0146 

0373 ' 

0373' 

0330 

”0332 

~0530" 

0533" 

0562" 

0563" 









US 

0093 

0371 


















VD 

0099 

0100 

0103 

0143 

0148 

0522 

0523 

0524 

0.924 

0525 

0525 

0528 

0529 







VE 

0090 

0145 

0145 

0379 

0579 

0351 

0332 

...<^531 . 

0534 

0562 

0563 









VU 

0093 

' 0107 

0147 

0147 " 

0161 

0293 

0295' 

0326 

0327 

0323 

0323 

0529 

" 0330 

"'C33l' 

0332 

0333 ' 

0334 ' 

0335 

0336 


0337 

C3'*3 

0333 

0339 

0340 

0341 

0342 

0343 

0343 

0344 

0345 

0346 

0347 

0343 

0349 

0350 

0351 

0352 

0353 

0522 

XS 

0005 

0434 

0435 

0446 

0446 

0447 

0447 

0465 

0466 

0503 

0506 

0512 

0512 

0513 

0513 

0538 

0588 

0589 

0589 


05 20 
0397 

0590 

0591 ■ 

0391 ■■ 

0594 

0594 

'0594' 

0594 

0595 

0595 

0595 

0595 

0596 

0596 

0596 

0596 

(.597 

0597 

0597 

Atl 

0003 

0603 

0607 

0668 
















AAR 

0003 

0602 

0606 

0663 
















ACE 

0035 

0153 

015C 

0162 

'0373^ 

0378“ 

"“0378 

~'0379~ 

0379~ 

^379~ 

■0363~ 

0503 

""oscT 

■”“0530' 

~6530'“’ 

' 6531 ““ 

053 r 

~05ir" 


A!!I 

CC03 

Coll 

0616 

0669 
















AHR 

CC03 

0610 

0615 

0669 
















3AI 

0003 

0605 

0609 

0663 
















E.'.R 

0003 

0 jC4 

06C3 ■ 

0663 ■■■ 
















EHI 

0 0 03 

C6I3 

0616 

0669 
















EfiR 

0003 

C612 

C617 

0669 
















CXD 

0041 

C 066 

0071 

0071 

0072 _ 

0079 

0079 

_ 0082^ 

0082 _ 











‘cxu 

oo;o 

00 'iS 

■‘0053 '■ 

0053 

0054 

0061 

~ 0061 

0C64“^ 

0064 











SYD 

0043 

C047 


















BYU 

0042 

0046 


















311 

C C 5 3 

CC62 

0065 

0170 

0170 

0171 

0171 

_ 0172 _ 

0172 

0173 

0173 

0204 

0204 

0205 

0205 

0206 

C206 

_0207_. 

0207 


'0242 

■ 0242 

(:243 

0243 

0261 

0261 

0262 

0262 

0403 " 

0491 ■ 

0491 

C492 

0492 

0499 

0499 

"osoo 

C530 



SIR 

0054 

CC61 

0064 

0170 

0170 

0171 

0171 

0172 

0172 

0173 

0173 

0204 

0204 

0205 

0205 

0206 

0206 

0207 

0207 


0242 

0242 

024 3 

0243 

0261 

0261 

0262 

0262 

0403 

0491 

0491 

0492 

0492 

0499 

0499 

0500 

0500 



B2I 

0071 

OCoO 

C ^33 

0326 

0336 

0337 

0337 

0390 

0390 __ 

_0391_ 

0391_ 

0535 

_0535 

,_.0536. 

_0536__ 

_0543._ 

.0543. 

,_0544_ 

0544 


01-62 

0562 

05o 3 

0363 ■ 

0570 ■■ 

C37Q 

■ 0571 

0571 












E2R 

0072 

0079 

CCS2 

0326 

03P6 

0337 

0357 

0390 

0390 

0391 

0391 

0535 

0535 

0536 

0536 

0543 

0543 

0544 

0544 


0562 

0562 

0563 

0363 

0570 

0570 

0571 

0571 












COS 

0007 

0020 

0034 

00 35 

00 36 

0037 

0033 

_ 0033 

0039 

0039 

0090 

0090 

0091 

0106 

0108 

0110 

0111 

0111 

0163 


0166 

0166 

0163 ■ 

0169 ' 

0199 

0201 

' 0239 

0373 

0378 

0379 '■ 

0379 

'0379 

0379 

0331' 

"0333 

0383 

0363 

0384 

0385 


0430 

0432 

0434 

0436 

044 0 

0440 

0441 

0442 

0442 

0442 

0445 

0443 

0446 

0449 

0452 

0453 

0456 

0459 

0459 


0460 

0461 

C461 

0461 

0462 

0465 

0491 

0491 

0491 

0492 

0492 

0492 

0497 

0493 

0499 

0499 

0500 

0500 

0503 


0304 

0512 

0514 

0514 

0515 

0526 

C52S 

0529 

0550 

0531 

0531 

0532 

0562 

0562 

0562 

0563 

0563 

0563 

0568 


'o::,9 

0570 

"0570 

0571 ■■ 

C5 7L 

0572 

■ 0573 

'05-32 

0503 

0584 

0565 

'0566 

0587 

0590' 

0590 

0591 

0591 

0596 

0596 


0596 

0396 

0596 

0597 

0597 

0597 

0597 

0597 












Din 

00 45 

CC66 

0071 

C072 

0079 

0079 

0082 

0032 












__D1U 

0044 

0048 

0C53 

0054 

0C61 

_0061_ 

__0C64_ 

_0064_ 












□ 2D 

C0-:7 ' 

■ 0C66 

"0071 

00 79 

0282 ■■ 















D2U 

0046 

CC48 

0033 

0061 

0064 















FM2 

C303 

0293 

0294 

0295 

0297 

0297 

0297 

0297 

0293 

0293 

0298 

0299 

0299 

0299 

0299 

0299 

0300 

0300 

0301 


0301 

0301 

0301 

0302 

0302 

0303 

0303 

0303 

0305 

0504 

0304 

0334 

0304 

0305 

0305 

0305 

0305 

0306 

0306 


03C6 ■ 

0306 

■ 0307 

0307 

0307 

0307 

' 0303 

03C3" 

0309 

0309 

0309 

0309 

0310 

0310' 

0311 

‘0311 

0311' 

0311 

0312 


0312 

0312 

0312 

0313 

0313 

0513 

0314 

0314 

0314 

0515 

0315 

0315 

0316 

0316 

0316 

0317 

0317 

0517 

0318 


0318 

0313 

0319 

0319 

0319 

0320 

0320 

0320 

0321 

0321 

0321 

0322 

0322 

0322 

0323 

0323 

0323 

0324 

0324 


0324 

0325 

0325 

0325 _ 

0326 

0327 

032-3 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 


'0341 

0342 

■■'0343 

0344 

0345 

0346' 

0347 

0343 

0349 

0350' 

0351 

0352 

0355 

0410' 

0478 

0478 

‘0478 

'0476 

0473 


0478 

0478 

0478 

0478 

0473 

0478 

0478 

0478 

0478 












rSE 0162 0378 0379 0333 0383 

ICL 0004 0593 0603 0616 0642 
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SYMBOL 

ICM 

MDS 

MUS 

HXO 

0 

INTERNAL STATEMENT NL'ND 
OOC4 0599 0605 0613 

0004 0005 0020 0096 

0CC4 0005 0029 0097 

0004 0026 0041 0043 

R T R 
EPS 
0643 
0099 
0093 
0045 

A.N 

C R 

OSS 

R E 

PER 

E N C 

E 

LIS 

TIN 







0114 

0114 

ocao 

0370 

0C33 

0371 

0373 

0375 











HMU 

0004 

0037 

0040 

0044 

0044 

0062 

0065 














MYD 

0CC4 

0004 

0033 

CC43 

0045 

0047 

0074 

0030 

0CS3 












HYU 

0C04 

0004 

0039 

0C42 

0044 

0046 

0053 

0062 

0065 












PIN 

0C26 

0028 

0115 

0130 

0130 

0202 















ECL 

0592 

C602 

0615 

0642 

















RCH 

0593 

0604 

0617 

0643 

















REV 

00S9 

0090 

CC?1 

0092 

0108 

0109 

0109 

0378 

0378 

0379 

0379 

0363 

0526 

0528 

0529 

0530 

0531 




SIN 

0036 

0037 

0091 

0110 

0165 

0165 

0167 

0170 

0170 

0170 

0171 

0171 

0171 

0172 

0172 

0172 

0173 

0173 

0173 



0193 

0200 

0204 

02C4 

0204 

0205 

0203 

0205 

0206 

02C6 

0206 

0207 

0207 

0207 

0238 

0242 

0242 

0242 

0243 



0243 

0243 

0261 

0261 

0261 

0262 

0262 

0262 

0373 

0378 

0380 

0333 

0333 

0334 

0366 

0386 

0386 

0337 

0337 



0?37 

0333 

0339 

0390 

0390 

0390 

0391 

0391 

0391 

0392 

0393 

0431 

0433 

0435 

0437 

0441 

0443 

0447 

0450 



0431 

C454 

0455 

0460 

0462 

0462 

0466 

0491 

0491 

0491 

0492 

0492 

0492 

0497 

0493 

0499 

0499 

0500 

0500 



C5C4 

0506 

0307 

0507 

0513 

0515 

0533 

0332 

0535 

0555 

0535 

0536 

0536 

0536 

0533 

0543 

0543 

0543 

0544 



0544 

0344 

0545 

0562 

0562 

0562 

0563 

0563 

0563 

0563 

0569 

0570 

0570 

0571 

0571 

0572 

0573 

0582 

0533 




0535 

0526 

0587 

















SSI 

0094 

0101 

0117 

0139 

0139 

0163 

0165 

0167 

0167 

0167 

0168 

0163 

0168 

0198 

0199 

0200 

0201 

0233 

0239 



0240 

0241 

0263 

0493 

0494 

0495 

0496 














SST 

0095 

0101 

0106 

0107 

0117 

0140 

0140 

0164 

0166 

0160 

0130 

0131 

0182 

0182 

0183 

0190 

0191 

0192 

0193 



0203 

0203 

0214 

0219 

0225 

0246 

0243 

0265 

02?o 

0325 

0307 

0321 

0330 

0334 

0345 

0351 

0473 

0474 



ssu 

0097 

0093 

0117 

0143 

0143 

C293 

0371 

0371 

0372 

0376 

0431 

0482 

0483 

0434 

0487 

0487 

0483 

0438 



TAU 

OCIO 

0011 

OOil 

0035 

0165 

0165 

0165 

0165 

0166 

0166 

0166 

0166 

0167 

0167 

0167 

0167 

0166 

0163 

0163 



0168 

0169 

0170 

0170 

0170 

0171 

0171 

0171 

0172 

0172 

0172 

0173 

0173 

0173 

0193 

0193 

0193 

0199 

0199 



0199 

0200 

0200 

0201 

0201 

0204 

0204 

0204 

0205 

0205 

0205 

0206 

CEC6 

0206 

0207 

0207 

0207 

0233 

0233 



0239 

0239 

0240 

0241 

0242 

0242 

0242 

0243 

0243 

0243 

0261 

0261 

0261 

0262 

0262 

0262 

0373 

0373 

0373 



0378 

0379 

0379 

0379 

0320 

03C0 

0361 

0331 

0333 

0333 

0353 

0384 

0335 

0336 

0336 

0336 

0337 

0337 

0387 



0263 

0309 

0390 

0390 

0390 

0391 

0391 

0391 

0392 

0393 

0491 

0491 

0491 

0491 

0491 

0491 

0491 

0491 

0492 



0492 

0492 

0492 

0492 

0492 

0492 

0492 

0497 

0497 

0497 

0498 

0493 

0493 

0499 

0499 

0499 

0499 

0499 

0500 



0500 

C500 

0500 

0300 

0530 

0530 

0531 

0531 

0552 

0533 

0534 

0535 

0535 

0535 

0536 

0536 

0535 

0533 

0543 



0343 

0543 

0544 

0544 

0544 

0545 

0562 

0562 

0362 

0562 

0562 

0562 

0562 

0562 

0563 

0563 

0563 

0563 

0563 



0563 

0563 

0563 

0563 

0568 

0568 

0569 

0569 

0569 

0570 

0570 

0570 

0570 

0570 

0571 

0571 

0571 

0571 

0571 



0572 

0572 

0572 

0573 

0573 

0573 















TDS 

0030 

0031 



















TIN 

0C27 

0023 



















U3I 

0463 

0490 

0629 


















uc:? 

C4S7 

0439 

0629 


















VEL 

0111 

0153 

0153 

0166 

0166 

0168 

0168 

0163 

0199 

0199 

0201 

0239 

0241 

0491 

0492 






VII 

0445 

■.C-''64 

0467 

0463 

0469 

0470' 

0471 

0472 

0631 












VIR 

0444 

0463 

0467 

0466 

0469 

0470 

0471 

0472 

0631 












V2I 

0447 

0466 

0475 

0476 

0477 

0473 

0631 














VCR 

0446 

0465 

0475 

0476 

0477 

0473 

0631 














V3I 

0520 

0527 

0529 

0632 

















V23 

0521 

0526 

0528 

0632 

















KDS 

0100 

0523 

0529 


















AAIK 

0607 

0670 



















aar:< 

0606 

0670 



















AH IK 

0611 

0671 



















AKItK 

0610 

0671 



















EAIK 

0609 

0670 




















.BARK 0603 0570 

I=HLK 0613 0671 

EflDK 0612 0671 

DTOT 0819 0032 0102 0126 0126 
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FLC’.! 
I ACE 
ICLL 
ICLU 

0161 

000^ 

CCC'A 

COO-i 

0304 

0437 

0391 

0589 

0305 

0450 

0593 

0593 

0318 

0526 

0642 

0642 

0528 

06.22 










ICilL 

CQOY 

059/ 

0599 

0643 












ICM'J 

o 

o 

0595 

0599 

0643 












1003 

oco-i 

0450 

0486 

0323 

0524 

0527 

0529 

0627 








It'.AP 

C00<i 

0435 

0451 

0475 

0476 

0477 

0478 

0524 

0528 

0621 






IMOP 

CC09 

0469 

0471 

0472 

0473 

0475 

0476 

0477 

0473 

0627 






ICPP 

CCO-i 

0473 

0475 

C^' 76 

0477 

0473 

0576 

0578 

0625 







IM3P 

OOOtf 

0459 

0506 

0513 

0629 











IFDS 

COOA 

Cs oo 

0450 

0523 

OSGO 

0625 










IPIL 

OCQ^f 

0503 

0591 

0597 

0641 











IPIU 

OOO^s 

0576 

0552 

0533 

C5S9 

0595 

0640 









IF2L 

COO'% 

0535 

0591 

0597 

0641 











IR2U 

OOCif 

0573 

0584 

0585 

CSS9 

0595 

0640 









IP3L 

oco^ 

0537 

0591 

0597 

0641 











IP3U 

OOC-i 

0530 

0536 

C5S7 

0539 

0595 

0640 









IRFF 

OOC'i 

0559 

0550 

0561 

0572 

0573 

0639 









ISSP 

COOY 

0467 

0469 

0470 

0471 

0472 

0475 

0476 

0477 

0478 

0623 





It.'OS 

CC09 

0523 

0524 

0328 

0529 

0637 










IVPD 

OCO<h 

0560 

0562 

0562 

0562 

0553 

0563 

0563 

0568 

0569 

0570 

0570 

0571 

0571 

0633 

ivru 

CCCA 

C471 

0471 

0491 

0491 

0492 

0492 

0492 

0497 

0498 

0499 

0499 

0500 

0500 

0633 

MCPT 

c;ci» 















Mir?£ 

COC^t 

0005 

0014 

0035 

0037 

0039 










MERE 

0 0 

0006 

C0C7 

0034 

0036 

0032 

0039 









PTOT 

CODE 

C019 

0024 

0025 

0026 

0055 

0135 

0135 








(5'JDT 

0229 

0231 

0233 

0234 

0260 

0201 

0282 

0233 

0284 

0285 

0286 

0287 




RACE 

04 36 

0449 

033 7 

0529 

0622 











RCLL 

C590 

0592 

0642 













RCLU 

0533 

0592 

0642 













RCML 

CS-)6 

0593 

0643 














C594 

0593 

0 643 













Pu DS 

0479 

0485 

0522 

0525 

0526 

0528 

0627 









RG'.S 

C013 

0019 

0023 

0031 

0027 

0023 

0094 

0095 

0096 

0097 






RMAP 

0434 

0452 

0475 

0476 

0477 

0478 

0525 

0529 

0621 







r;;jp 

C470 

0471 

0472 

0474 

0475 

0476 

0477 

0473 

0627 







RM.-p 

04 74 

0475 

0476 

0477 

0472 

0577 

0579 

0625 








RM.SP 

C'-i90 

0503 

0512 

0629 












<“D3 

C^S5 

0437 

0529 

0531 

0625 











;piL 

0512 

0390 

0596 

0641 












PPIU 

0377 

0562 

0533 

0523 

0594 

0640 










(’F2L 

C5.'4 

0590 

0596 

0641 












RP2U 

C579 

0554 

0535 

0532 

059'^ 

0640 










RP3L 

C5:i 

0590 

0596 

C641 












Rrzu 

C541 

05C^i> 

0587 

0523 

0594 

0640 










"PFr 

C555 

0560 

C561 

0572 

0575 

0639 










RC5P 

c;68 

0469 

0470 

0471 

0472 

0475 

0476 

0477 

0478 

0623 






r'JJ3 

C522 

0525 

0528 

0529 

0637 











RVPD 

0561 

0562 

0562 

0562 

0553 

0563 

0563 

0568 

0569 

0570 

0570 

0571 

0571 

0633 


RVPU 

0472 

0491 

0491 

0491 

0492 

0492 

0492 

0497 

0493 

0499 

0499 

0500 

0500 

0633 


SCi^x 

0053 

0061 

0064 

0071 

0079 

0C32 

0033 

0094 

0095 

0096 

0097 





-ttot 

0005 

0019 

0027 

0030 

0086 

0033 

0094 

0095 

0096 

0097 






UNST 

0002 















VOLl 

00(5 

0155 

0155 

0167 

0167 

0167 

0167 

0168 

0163 

0168 

0168 

0174 

0174 

0176 

0200 0200 0201 0201 0209 


0215 

0218 

0224 

0240 

0241 

0247 

0265 

0407 
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SYMSOL_IHTERNAL STATEMENT NUM3ERS 


"VOL2 

0C05 

0156 

0156 

0294 

0304 

0305' 

0306 

0307 

0303 

0309 

0319 ' 

0320" 

0322 

0326 

0327 

0328’ 

0329 

0330 

0331 



0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0344 

0345 

0346 

0347 

0348 

0349 



0350 

0351 

0332 

0333 

















V0L3 

coos 

0157 

0157 

0380 

0530 

0381 

0381 

0334 

0526 

0527 

0528 

0528 

_0529 

0529 . 

0533 

0534 





VlAI 

0439 

C445 

0433 

0464 

0630 
















VIAR 

0433 

0444 

0457 

0^63 

0630 
















V13I 

0441 

0445 

0460 

0464 

0630 
















VI ER 

0440 

0444 

0459 

0463 

0630 
















VI Cl 

0443 

0445 

0462 

0464 

0630 
















VICR 

0442 

0444 

0461 

C463 

0630 
















V3AI 

0506 

C513 

0520 

0631 

















V3AR 

0503 

0512 

0521 

0631 

















V53I 

C507 

0515 

0520 

0632 

















V3ER 

C504 

0514 

0521 

0632 

















V3CI 

0533 

0517 

0520 

0632 

















V3CH 

0505 

0516 

0521 

0632 

















WDSI 

0524 

0526 

0523 

0637 

















NDSR 

0525 

0527 

0329 

0637 

















ALFCH 

OOCS 

0007 

0020 

0034 

0035 

0036 

0036 

0037 

0037 

0033 

0038 

0039 

0039 

0090 

0090 

0091 

0091 

0106 

0108 



0110 

0110 

0111 

0111 

0163 

0165 

0165 

0166 

0166 

0167 

0168 

0193 

0199 

0200 

0201 

0238 

0239 

0378 

0378 



0373 

0373 

0379 

0379 

0379 

0379 

0330 

0331 

0383 

0303 

0333 

0383 

0383 

0334 

0384 

0440 

0441 

0442 

0442 



C443 

0443 

0459 

0460 

0461 

0461 

0462 

0462 

OsO~f 

0507 

0514 

0515 

0526 

0528 

0529 

0530 

0530 

0531 

0531 



0532 

0532 

0590 

0590 

0591 

0391 

0596 

C596 

0596 

0596 

C596 

0597 

0597 

0597 

0597 

0597 





ASTAR 

0005 

0100 

0135 

0156 

0157 

0153 

0159 

0160 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0440 

_0441 _ 

0442 



0443 

0446 

0447 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0459 

0460 

0461 

0461 

0462 

0462 

0465 

0466 



0503 

0503 

0504 

0506 

0506 

0507 

0512 

0512 

0513 

0513 

0514 

0515 









AVGDl 

0103 

0127 

0127 

0167 

0167 

0168 

0163 

0175 

0175 

0176 

0176 

0200 

0201 

0215 

0216 

0224 

0227 

0252 

0272 


AVGD2 

0104 

0123 

0123 

0304 

0305 

03C6 

0307 

0310 

0311 

0319 

0320 

0324 

0338 

0351 







AVGD3 

0105 

0129 

'0129 

0320 

0331 

0334 

0526 

0527 

0523 

0520 

0529 

0529 









AV5V1 

01C6 

0149 

0149 

0167 

0167 

0163 

0163 

0174 

0175 

0176 

0176 

0200 

0201 

0209 

0216 

0218 

0227 

0406 



AVGV2 

0107 

0150 

0150 

0294 

0303 

0339 

0310 

0311 

0322 

0524 











AVGV3 

0108 

0151 

0151 

0330 

0381 

0528 

0523 

0529 

0529 












EETAl 

0CC5 

C020 

0335 

0037 

0106 

0110 

Oill 

0163 













EETA2 

0005 

0007 

0034 

0036 

0033 

0039 

0090 

0091 

0103 

0378 

0378 

0379 

0379 

0383 

0526 

0528 

0529 

0530 

0531 


COT/.H 

0451 

0462 



















CEUTA 

0005 

OCIO 

0440 

0441 

0442 

0442 

0443 

0443 

0459 

0460 

0461 

0462 

0504 

0507 

0514 

0515 

0590 

0590 

0591 



0591 

0596 

0596 

0596 

0596 

0596 

0597 

0597 

0597 

0597 

0597 










F.M23A 

0296 

0302 

0303 

0316 

















GAMMA 

C015 

0024 

0024 

0024 

0025 

0025 

0025 

0026 

0026 

0026 

0027 

0029 

0029 

0030 

0032 

0032 

0065 

0085 

0085 



0086 

0C33 

002 3 

0094 

0094 

0095 

0095 

0096 

0096 

0097 

0097 

0102 

0102 

0163 

0163 

0164 

0164 

0164 

0164 



0165 

0166 

0167 

0167 

0167 

0168 

0163 

0163 

0174 

0174 

0175 

0175 

0176 

0176 

0369 

0369 

0370 

0370 

0370 



0370 

0371 

0371 

0371 

0371 

0372 

0372 

0373 

0374 

0374 

0375 

0435 

0484 

0495 

0496 

0566 

0567 




IMAPI 

CC04 

0431 

0433 

0467 

0468 

0469 

0470 

0471 

0472 

0621 











IM-'.PT 

0004 

0433 

0454 

0467 

0468 

0469 

0470 

0471 

0472 

0475 

0476 

0477 

0478 

0621 







i:;dpe 

CC04 

C56S 

0623 


















IMDPI 

CCC4 

0494 

0628 


















IMDP'J 

0004 

0473 

C4C0 

0432 

0523 

0627 















imfpe 

0004 

0563 

0565 

0567 

C5-30 

0626 















IMPPI 

CC04 

0492 

0494 

0496 

0576 

0626 















IMPPL) 

0CC4 

0432 

0434 

0433 

0573 

0625 















IMVP'J 

0004 

0476 

0477 

0473 

0430 

0488 

0523 

0634 













IGOS'J 

0004 

0484 

0463 

0623 

















.MEXIT 

OOC4 

0007 

0085 

0086 

0083 

0114 
















OMEGA 0005 0021 

PRESl 0005 0136 0136 

FRES2 0005 0137 0137 


Cn 

W 
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R T R 

A N 

C R 

OSS 

R E 

PER 

E N C 

E 

LIS 

TIN 







ThiTPOfMI <;TATPMr»J7 

■ 

EPS 















F3ES3 

c:c5 

0 1 .^0 

0133 
















C'J.MIT 

0243 

0049 

0053 

0059 

0066 

0067 

0074 

0077 












r:;APi 

0430 

0453 

0467 

0463 

0469 

0470 

0471 

0472 

0621 











nXAPT 

0452 

0456 

0467 

0463 

0469 

0470 

0471 

0472 

0475 

0476 

0477 . 

0478. 

0621 




■ 





f:::ofe 

03 64 

0623 


















r:;3PI 

0493 

0623 


















R;:3ru 

RIIPPE 

0477 

0562 

0479 

0564 

0431 

0566 

0522 

0531 

0627 

0626 















'n;:ppi' 

0-491 

0493 

95 ' 

0577 

0626 















r:;ppj 

0431 

C*^G3 

0437 

0579 

Coc,i> 















r;v,vu 

0-475 

0477 

0473 

0479 

0437 

0522 

0634 













RSOS'J 

0433 

0437 

0623 

















'E23DS 

0096 

0099 

0117 

0142 ■ 

' 0142 ' 

0435 

0426 













c,f.c rv 

0023 

0039 

0117 

0141 

0141 

0373 

0379 

0380 

0331 

0530 

0551 

0533 

0534 

0564 

0565 

0566 

0567 



UllRE 

0005 * 

0021 

0100 

0106 

0109 

0110 

0111 

0130 

0131 

0152 

0133 

0134 

0135 

0136 

0137 

0133 

0139 

0140 

0141 


014 2 

0143 

0144 

0145 

0146 

0147 

0143 

0149 

0150 

0151 

0152 

.0153 

0154 










U2irE 

0072 

0154 

0154 

0162 

0527 















VZLAX 

0110 

0152 

0152 

0165 

0165 

0167 

0167 

0167 

0193 

0193 

0200 

0230 

0240 

0491 

0492 





XSTAR 

09 05 

0432 

0433 

0442 

0442 

0443 

0443 

0446 

0446 

0447 

0447 

0461 

0462 

0465 

0466 

0533 

0563 

0589 

0589 


0390 

0590 

0591 

0591 

0594 

0594 

0594 

0594 

0595 

0595 

0595 

0595 

0596. 

_ 0596 

0596 

0596 

0S97__ 

_0597_ 

0597 


0597 



















ALPDAR 

0205 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0440 

0441 

0442 

0443 

0446 

0447 

0512 

0513 

0514 

0515 


C---02 

0603 

G604 

06C5 
















AV350S 

ClCl 

0144 

0144 

0167 

0167 

0168 

0168 

0174 

0175 

0176 










■iiavpe“ 

'0004 

0571 

' 0635 

















IIAVPI 

CCG4 

C3C0 

0634 

















IITVPE 

C004 

0369 

0635 

















IITVPI 

C0C4 

0493 

0634 


















CC 3^ 

056 7 

062^ 

















■::.3CPi 

CC04 

0476 

C62 5 


















ir/.vrs oco'+ 

inTvr-E_ CCC't 

r::i:cc:< coo^' 

rr<5TA(? 00 3'+ 
RTAVr:E 0570 
RIAVPI _ 0499 
■RiiVFE OEOS' 
RITVRI 0^97 
R:'.'3S?E c:66 

R,-,3S?I 0493 

■RRAVPE ' 0372 
P.RTVPE 0574 


0573 

0575 

00C5' 

0016 

0635 

0634 

0635 
0634 
0624 
0623 
0574' 

0636 


C375 

063-6 

0024' 

0095 


0635 


0032 

0102 


0635 


SIGMAS 

CCC5 

0C33 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0459 

0460 

0461 

0461 

0462 

0462 

0465 

0466 

0503 


0504 

0506 

0507 

















““SIGMAT" 

0005 

0430 ■ 

"0431‘ 

” 0432 

~0433“ 

0434'” 

0435 

0456 

“0437 

“0440“ 

044 1”“ 

0442' 

0443 

“Ci446“ 

”(i447' 

"“csif" 

“0513' 

“0514‘ 

“0515” 


0532 

0532 

0583 

0533 

0334 

0564 

0535 

0535 

0536 

0536 

0567 

0537 









+()+x+i«F 0 R TRAN C ROSS REFERE NCE LI STIN G<<***** 


3EL 

CEFIHED 

REFERENCES 

10 

0232 

0230 

13 

0449 

0423 

15 

0667 

0427 

17 

0467 

0443 

20 

0237 

0235 

24 

0512 

0501 

25 

0520 

0511 
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WERSION 1.3.0 (01 MfcY 80) 


UNST 


SYSTEM/370 FORTR)lN H EXTENDED (ENHANCED) 


__LABEL_ DEFINED. 
30 02E3 

33 0615 

3^ 0619 

40 0277 

50 0292 

60 03S7 

70 0368 

71 0032 

75 0057 

76 0070 

78 0076 

80 0056 

84 0034 

90 CC66 

91 0074 

94 0C32 

93 0023 

99 0C34 

100 0113 

1C5 0113 

110 0119 

115 0120 

120 0121 

333 0404 

410 0510 

420 0519 

440 0644 

450 0645 

460 0646 

470 C647 

4S0 C643 

490 0649 

500 0650 

510 0651 

520 0652 

530 0653 

540' 0654 

SS3 0655 

560 0656 

570 0657 

530 Co53 

590 
600 
610 

' ^620' 

630 
640 
j550 
660 
670 
630 
690 
"700" 

1000 
6000 
6001 


ORTRAN CROSS REFERENCE LIS 

REFERENCES 

0256 

0600 

0614 

0275 

0290 

0355 

0266 

0051 

0056 

0069 

0075 

0049 

C359' 

0055 0063 

0067 

0077 

0022 ' 

0073 0081 
0112 

0114 

C116 

0115 
0117 

0403 

0309 

0513 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0633 


80.353/15.02.49 


PAGE 29 


I N 


AVERSION 1.3.0 (01 MAY 80) 


UMST 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 80.353/15.02.49 


PAGE 30 


05 


0 R T R A N 


LABEL 

DEFINED^. 

_ REFERENCES. 

6002 

0420 

0409 

6003 

0421 

0410 

6C04 

0422 

0411 

6005 

0423 

0412 

6006 

0424 

C413 

6007 

0425 

0414 

6008 

0426 

0415 

6100 

0417 

0406 

6200 

C418' 

0407 

6666 

0620 

0619 


CROSS REFERENCE LISTIN 


/ UNST_/ SIZE. 0F_ PROGRAM, 00699’„HEXADECIMAL. BYTES. 


NAME 

TAG 

TYPE 

ADD. 

NAME 

TAG 

TYPE 

ADD. 

NAME 

TAG 

TYPE 

ADD. 

NAME 

TAG 

TYPE 

ADD. 

B’SF 


R!'4 

000D50 

C 

F 

C 

Rif4 

000044 

E 

F 

C 

R^<4 

000014 

H 

F 

C 

R)*4 

000064 

I 

SF 


Ri;4 

OCOD54 

J 

SF 


I»4 

OOOD53 

K 

SF 


RX4 

000D5C 

M 

SF 


R«4 

00105C. 

R 

SF 


R ^'4 

0OCD6O 

S 

SF 


R)*4 

OOlCCC 

2 

SF 


R»4 

C0CD64 

AC 

SF 

C 

RX4 

000013 

AO 

SF 

C 

RH4 

0C031C 

Cl 

SF 


R*4 

00CD6S 

CL 

SF 


R«4 

OOlOFO 

CO 

SFA 


RX4 

CC0D6C 

CR 

SF 


R-4 

000D70 

DO 

SF 


Ri;4 

000D74 

CE 

SF 


R^f4 

0CGD78 

DI 

SF 


RX4 

00C37C 

DT 

SF 


RK4 

occaoo 

DU 

SF 


RJi4 

00CDS4 

FC 

SF 


R«4 

001 ICC 

FE 

£F_ 


_RX4 

001270. 

FM 

Sr 


Rt^4 

0C12FC 

IC 

SF 


Rs4 

OOOD83 

II 

SF 


H<4 

OOOD3C 

LC 

SF 


RX4 

0013S3 

LM 

SF 


Ri^4 

00 1428 

i:d 

Sf= 


RX4 

OO0D9O 

MI 

SFA 


Ri<4 

00 CD 94 

MT 

SF 


RX4 

00CD98 

MU 

SF 


R>‘4 

OOOD'C 

FO 

cc 


R-4 

00 CD AO 

PE 

SF 


Rif 4 

0CCDA4 

PI 

SF 


R>4 

0CPDA8 

PT 

SF 


Rf*4 

oocn/c 

PU 

SF 


R»4 

OOODBO 

RC 

SF 


R»(4 

000DB4 

TE 

SF 


_R«4 

00CD38. 

UE 

SF 


R5‘4 

CCCSBC 

US 

SF 


R-4 

OCCCCO 

VO 

SF 


R*4 

OOCDC4 

VE 

SF 


RX4 

000DC3 

VU 

SF 


R"4 

OOCDCC 

xs 

F 

c 

Ry4 

C C C 0 ^0 

AAI 

SF 


R«4 

0C14S8 

AAR 

SF 


R»4 

001490 

ACE 

SF 

C 

n:<4 

GOOCCC 

AHI 

SF 


R*4 

001493 

AHR 

SF 


R>t4 

0014A0 

BAI 

SF 


RX4 

C014A3 

E/.R 

SF 


K»4 

OOIABO 

EHi 

SF 


R«4 

0014B3 

EHR 

SF 


R)*4 

0C14C0 

BXD 

SFA 


RX4 

C003D0 

D/U 

SFA 


r;<4 

0CCCD4 

EYD 

S" 


R«4 

0CCC33 

BY'J 

SF 


R>:4 

COCDDC 

BlI 

SF 


RX4 

OOODEO 

BIR 

Sr 


Ri»4 

000324 

PCI 

Sr 


R^<4 

rOCDES 

B2R 

Sr 


Rif4 

OOODEC 

COS 

F 

XF 

RX4 

000000 

DID 

SFA 


RV4 

OOCDi'O 

DIU 

SFA 


R*4 

00GDF4 

D2D 

SFA 


R*4 

0C0DF8 

D2U 

SFA 


R«4 

OOODFC 

FM2 

SF 


H-4 

0C14C3 

FRE 

SF 


R«4 

OCOECO 

ICL 

SF 


R»4 

000E04 

ICM 

SF _ 


_RX4 

oooEoa. 

)D3 

FA 

C 

Ri»4 

CCCC24 

rrjs 

FA 

c 

RK4 

0C0023 

MXD 

SF 


R>i4 

OOOEOC 

MXU 

SF 


RX4 

OOOEIO 

HYD 

SF 


Ri<4 

OOOE14 

MYU 

5F 


R!<4 

000E18 

PIN 

SF 


R»4 

OOOEIC 

RCL 

SF 


RX4 

OOOE20 

PCM 

SF 


R»4 

0C0E24 

REV 

SF 


R"4 

0C0E28 

SIN 

F 

XF 

R 5^4 

OCOCOO 

SSI 

SF 


R«4 

OOOE2C 

£ST 

SF 


R«4 

0Q0E30 

SS'J 

SF 


R«4 

000E34 

TAU 

SFA 


R‘(4 

COOE33 

TOS 

SF. , 


RV4 

OCCEIC. 

TIN 

SF 


Rr4 

CCG340 

U5I 

SF 


R44 

000E44 

USR 

SF 


Ri*4 

00CE4S 

VEL 

SF 


RX4 

00CE4C 

VII 

SF 


R)f4 

0C0E5O 

VIR 

Sr 


R'i4 

OOOE54 

V2I 

SF 


Rif4 

000E53 

V2R 

SF 


RX4 

0C0E5C 

V3I 

SF 


R»4 

OCCC60 

V3R 

SF 


RM4 

0CGE64 

NOS 

SF 


Ra4 

CG0l66 

AAIK 

SF 


R*4 

0CCE6C 

AARK 

5? 


R»4 

CC0E70 

AHIK 

SF 


R>f4 

0C0E74 

AHRK 

SF 


R»4 

OOOE73 

BAIK 

SF 


R^4 

000E7C 


Sr 


R!f4 

OOCEGO 

b:iik 

SF 


R^4 

000EG4 

C^^RK 

SF 


Rif4 

OOOECS 

DTOT 

SF 


RX4 

OOOEeC 

FLCN 

SF 


R»4 

OC0E90 

I ACE 

SF 


RK4 

000E94 

ICLL 

SF 


Rif4 

00CE98 

ICLU 

SF 


R»4 

000E9C 

ICHL 

SF 


R;<4 

OOOEAO 

ICiiU 

SF 


R:-<4 

000EA4 

IDD3 

SF 


R*4 

OOOEA8 

IMAP 

SF 


RX4 

OOOEAC 

I!:-3P 

SF 


Ri*4 

000E30 

ir.FP 

SF 


R«4 

000EE4 

ir;sp 

SF 


R»«4 

OOOEDS 

IP3S 

SF 


RX4 

OOOcBC 

IPIL 

SF 


R'4 

OCCLCO 

IFIU 

SF 


R«4 

0CCEC4 

IP2L 

SF 


R«4 

OOOECS 

IP2U 

SF 


RX4 

OCOECC 

IP3L 

SF 


R»4 

OCCZDO 

IPSU 

Sr 


R^4 

0CCC04 

IRr F 

SF 


Ri<4 

00CED3 

I3SP 

5r 


RX4 

OOCEDC 

IU33 

SF 


R 

OCOEEO 

IVTD 

SF 


R<!4 

OOOLE4 

IVF'J 

SF 


R»4 

C0CEE8 

MCPT 



R*4 

NR 

MIRE 

F 

C 

R*»4 

000048 

MERE 

SF 


R?f4 

COOEEC 

PTOT 

SF 

C 

R?i4 

00C04C 

QuOT 

Sr 


R#4 

OOOcFO 

RACE 

SF 


R*4 

0C0CF4 

RCLL 

Sr 


Ri-.4 

COOEFG 

RCLU 

SF 


R»4 

OOCEFC 

RCIIL 

SF 


RX4 

OOOFOO 

RCMU 

SF 


R-4 

0C0F04 

RDD5 

SF 


Ri<4 

OOOFOS 

RGAS 

SFA 


RX4 

OOOFOC 

RMAP 

SF 


Rif4 

OOCFIO 

ri;dp 

SF 


R«4 

00CF14 

r;;?p 

SF 


R«4 

OCOFIS 

R!:s° 

SF 


R>f4 

OOOFIC 

RF3S 

SF 


RX4 

000F20 

RPIL 

SF 


Ri‘4 

0C0F24 

RPIU 

SF 


R«4 

000F2S 

RP2L 

SF 


Ri*4 

000F2C 

RP2U 

SF 


R«4 

OOOF30 

RP3L 

SF 


R«4 

0CCF54 

RP5U 

SF 


R<;4 

00CF33 

R.RFF 

SF 


R*4 

000F3C 

RSSP 

SF 


R»f4 

0C0F40 

RUOS 

SF 


R«4 

0C0F44 

RVFO 

SF 


R*4 

00CF4S 

RVFU 

SF 


R»4 

00CF4C 

SQRT 

F 

XF 

RH4 

OCOOOO 

TTOT 

FA 

c 

RH4 

00002C 

U)!ST 



R<<4 

000F50 

VO LI 

SF 

c 

Ri<4 

000000 

V0L2 

SF 

C 

RX4 

000004 

VOL3 

SF 

c 

Ri*4 

O0C0O3 

VlAI 

SF_ 


R*4 

000754 

VIAR 

SF 


R«4 

OOOFS8 

VIBI 

SF 


RX4 

000F5C 
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VICR 

SF 



OO0F6O 

VICI 

SF 


R»*4 

000F64 

VICR 

SF 


R»4 

OOCF68 

V3AI 

SF 


RK4 

000F6C 

V3AR 

SF 



O00F70 

V3D1 

SF 


RV4 

00CF74 

V3CR 

SF 


Ri«4 

000F78 

V3C1 

SF 


R»4 

000F7C 

V3CR 

SF . 


_R*^_ 

OCCF80 

NOSI 

SF 


__R*4 _ 

000FS4 

, MDS? 

SF 


. R<(4 

0C0FS3 _ 

_ ALPCII 

FA 

_,c 

R*4 _ 

000053 . 

A5TAR 

F 

“c' 


000010 

AVGDl 

SF 


RH4 

OOCFSC 

AVGD2 

SF 


R>*4 

0C0F90 

AVCD3 

SF 


R*4 

000F94 

AVGVl 

SF 


RXA 

000F93 

AV3V2 

SF 


R=s4 

0CCF9C 

AVGV3 

SF 


R«4 

OOOFAO 

EETAl 

FA 

c 

R»4 

000050 

BETA2 

FA 

c 


CCCG54 

CDT/AJ 

F 

XF 

Ri<4 

000000 

DELTA 

F 

c 

R-4 

CC0C68 

FM23A 

SF 


R«4 

000FA4 

CAH>!A 

SFA 


RXA 

C(?CFA3 

_IMAPI 

SF. 


R»4_. 

OOOFAC 

_ INAPT 

SF _ 


R--<'4 

_ ooopro._ 

IMPPE 

SF_ 


.R»4 

000FB4 . 

lt:o?i 

SF 



ooorc3 

li'.CFU 

SF 


R5+4 

OOCFBC 

IMPPE 

SF 


RV4 

OOOFCO 

IMPPI 

SF 


R^4 

0C0FC4 

IIIFrU 

SF 


R«A 

C0CFC3 

IMVFU 

SF 


R«4 

COOFCC 

ISCS'J 

SF 


R^*4 

OOGFDO 

MEXIT 

SFA 


RX4 

000FO4 

OMEGA 

F 

c 

R:<4 

030C5C 

FRE31 

SF 

c 

R»4 . 

OC0038 

FRE52 

SF 

c 

R«4 

00003C 

FSlS3 

SF 

c 

Ri*4 

000040 

QUANT 

S 


R«4 

000FC8 

RMAPI 

SF 


R>»4 

OOOFDC 

. RMAPr 

SF 


_R«4. 

OOOFEC_ 

RMOPE 

SF_ 


R«4 

0C0FE4, 

KM.OPI 

sf' 


Rt*4 

CCCFE3 

RMDPU 

SF 


R»4 

OOOFEC 

RMPFE 

SF 


R«4 

OOOFFO 

r;i.'‘pi 

SF 


R>f4 

000FF4 

RtiPFU 

SF 


R«4 

OOOFF3 

RMVFJ 

SF 


R»J4 

OOOFFC 

REOS'J 

SF 


R«4 

001000 

S3SDS 

SF 


R*4 

001004 

SOS EX 

SF 


R*4 

001008 

UlIRE 

F 

c 

Ri:4 

000074 

U21RE 

SF 


R*4 

OCICCC 

VELAX 

SF 


R*4 

001010 

XSTAR 

F 

c 

Ri(4 

000034 

FRXFPT 


_XF 

R*4 

000000 

ALPBAR 

F 

c_ 

_ R+14 

000070_ 

AVGSOS 

SF_ 


,Rtf4 

001014. 

IC'CCMS 

f" 

XF 

RA4‘ 

eoooco 

HAVRE 

Sr 


R^--4 

0C1013 

IIAVPI 

SF 


R«4 

OOlOlC 

IITVPE 

SF 


Ri(4 

001020 

IITVFI 

SF 


K»4 

001024 

IMSSPE 

SF 


R»4 

001028 

IM5SPI 

SF 


R>4 

00102C 

IRAVPE 

SF 


RK4 

001030 

IRTVPE 

SF 


RK-4 

001034 

MSHOCK 

F 

c 

R»4 

0CC020 

MXSTAR 

SFA 


R«4 

001033 

RIAVPE 

SF 


RK4 

00103C 

RIAVPI 

SF 


RX4 

001040 

RITVPE 

SF 


RJ*4 

.001044 

RITVPI 

SF 


_Ri<4. 

001048_ 

RMSSPE 

SF_ 


,R«4 

.00104C, 

RMSSPI 

SF 


R)i4 

'ooioso 

RRAVPE 

SF 


R*4‘ 

001034 

RRTVPE 

SF 


R»4 

001058 

SIGMAB 

FA 

c 

R»4 

00005C 


SIGMAT FA C Rifi 000060 


»«*h*^_common. information 


NAME OF COMMON BLOCK » * SIZE OF BLOCK 000078 HEXADECIMAL BYTES 


VAR. NAME TYPE 

REL. ADDR. VAR. NAME TYPE 

REL. ADDR. 

VAR. 

, NAME TYPE 

REL. ADDR. 

VAR. NAME 

TYPE 

REL. ADDR. 

VOLl 

R*4 

000000 

VDL2 Ri»4 

COOCC4 


VDL3 R»4 

0CC008 


ACE 

R»;4 

OOOOOC 

ASTAR 

Rj<4 

000010 

E R>f4 

000014 


AC RS(4 

000018 


AO 

Rtf4 

OOOOIC 

MSIIOCK 

RM4 

00C020 

KDS R5«4 

O0C024 


MU3 R«4 

0C0026 


TTOT 

R«4 

00002C 

XS 

RS4 

000030 

XSTAR Ri»4 

00C034 

PRE31 R*4 

000033 


PR ES2 

Rt^4 

OOOOIC 

PRESS 

R«4 

000040 

C RJf4 

000044 


MIRE R5f4 

000040 


PTOT 

R>t4 

OG 0 OhC 

BETAl 

R»4 

00C350 

BETA2 Ri*4 

C00054 

ALFCH R«4 

000053 


SIGMAB 

RK4 

00005C 

SIGMAT 

R:-4 

000060 

H R*4 

00C064 

DELTA R*4 

000066 


OMEGA 

R»4 

00006C 

ALFBAR 

R*4 

000070 

UlIRE R«4 

000074 








SOURCE STATEMENT LABELS 










LABEL ISM 

ADDR 

LABEL 

ISN ADDR 

LABEL 

ISN 

ADDR 

LABEL 

ISN 

ADDR 



80 56 

0D1CD2 

84 

64 001F2E 

90 

66 

001F6E 

91 

74 

COIFCC 



94 82 

00204E 

99 

84 002CCE 

10 

232 

0031DE 

20 

237 

00322E 



30 253 

0034B2 

40 

277 0G36SA 

50 

292 

0037C6 

60 

357 

003EE6 



70 368 

0C400A 

13 

449 005166 

17 

467 

0051F6 

24 

512 

00rO9A 



is 520 

005900 

33 

615 0C62CE 

3^ 

619 

006322 

15 

667 

006800 



COMPILER GENERATED LABELS 










LABEL I3N 

ADDR 

LABEL 

ISN ADDR 

LABEL 

ISN 

ADDR 

LABEL 

ISN 

ADDR 



ICOOCl 2 

001B04 

200001 

27 0C1C76 

200232 

40 

C01D78 

100002 

51 

001E6A 



100C03 61 

OOIEEA 

1C00C4 

69 001FS6 

100005 

79 

00200A 

20SC03 

96 

oocieA 



2C0004 112 

0022CA 

2CCC05 

136 032492 

2C0CC6 

166 

0026EE 

200007 

169 

002O4A 



2C0003 173 

C02972 

200CQ9 

177 C02.‘-';S 

2C0010 

ICC 

OOCDIA 

2C0011 

106 

002:F2 



200012 194 

002CE0 

2CCC13 

2C0 C02BS3 

2C0014 

2C3 

002E96 

200015 

203 

002F42 



200016 ''216 

C03C32 

200017 

224 003130 

lOCCOo 

231 

0031C8 

100007 

233 

0031E2 



10CC03 236 

003213 

100009 

238 003232 

200013 

243 

0032FE 

200019 

248 

0033C0 



2CC020 256 

00343E 

lOCOlC 

257 003493 

100011 

259 

C034B6 

2C0021 

264 

003540 



200022 272 

003.616 

100012 

276 003670 

100013 

273 

00363E 

200C23 

290 

00379E 



103014 291 

0037AC 

100015 

293 0037CA 

2C0024 

305 

003CD4 

200025 

312 

0059D6 



200026 321 

003AF2 

20C027 

329 003C1C 

200028 

336 

C03CC2 

200029 

343 

003D74 



200030 350 

003E2C 

100016 

356 003EC8 

1CC017 

358 

003EEA 

200031 

365 

003FCA 



100018 367 

003FF4 

100019 

369 00400E 

20C032 

379 

0041A8 

200033 

382 

004293 
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(01 MAY 80) 

U!!ST 

SYSTEM/370 FORTRAN 

H EXTENC 

lED (ENHANCED) 

DATE 60.357/15. 

,02.69 

20003^ 

337 

006136 

200035 

391 

006676 

200036 

396 

006522 

£00037 

603 

C06636 

100020 

623 

005C3E 

1CC021 

630 

005036 

200033 

661 

00511A 

200039 

667 

0051EA 

200C AO 

602 

0C51CE 

200361 

671 

00533A 

200062 

676 

005668 

2CC063 

679 

C 0 5 5 F E 

2000AA 

692 

C0577C 

203C65 

699 

CC5C0A 

1C0022 

503 

0C5S2C 

200066 

529 

005,A7A 

2000A7 

533 

C0322E 

200063 

537 

CCIBCo 

200069 

566 

003C74 

200050 

550 

C030QS 

200031 

539 

0053DA 

£00352 

S'j3 

CC55CC 

2CC053 

569 

005F5C 

2C0056 

573 

C05F92 

200C55 

307 

0CiC<''6 

CGC056 

595 

0C6196 

200057 

593 

006202 

100023 

602 

006226 

20003G 

623 

0 V O 'i iJ 0 

2C0C59 

636 

C066C0 

1C0026 

663 

006G90 




FORN.AT STATE! 

:f.nv labels 










LABEL 

IFN 

A30R 

LABEL 

is;j 

ADDR 

LABEL 

ISN 

ADDR 

LABEL 

ISN 

ADDR 

iCCO 

3 

0 0 0 02C 

95 

23 

000020 

71 

52 

00CC7A 

75 

57 

00005B 

76 

70 

0i.007c 

76 

76 

00009F 

100 

113 

OOOCC2 

105 

118 

OOCOFB 

110 

119 

CC0126 

115 

120 

00016D 

120 

121 

C00175 
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NOMENCLATURE 


Symbol 

A 

a 

B 

b 

C 

Cp 

c„ 

Dt 

e 

F 

h 

h 

k 

M 

m 

n 

P 

R 

S 

T 

U 

u 


Definition 

Area between the blades 

Complex constant describing irrotational flow field 

Speed of sound 

Axial wave number 

Semi-chord of the airfoil 

Tangential wave number 

Specific heat at constant pressure 

Specific heat at constant volume 

Substantial derivative 

Specific internal energy 
Force on the control volume 
Enthalpy 

Blade deflection in bending mode 
Reduced frequency based on semi-chord 
Mach number 
Mass 

Unit vector normal to surface 
Pressure 

Universal gas constant 
Nondimensional interblade spacing 
Temperature 

Velocity along airfoil chord 
Axial velocity component 



NOMENCLATURE (Continued) 


Symbol 

u 

V 

V 

w 

Z 

Z + co 
a 

(i. 

02 

5 

y 

p 

T 

a 

4 ' 

Subscripts 


Definition 

Specific intrinsic energy 
Volume 

Tangential velocity component 
Mass flowrate 

Nondimensional elastic axis position 

Complex constant describing rotational flow field 

Mean torsional deflection 

Cascade stagger angle 

Inlet air angle 

Exit air angle 

Gap between the blades 

Ratio of specific heats 

Perturbation velocity potential 

Density 

Gap between the blades 
Interblade phase lag 
Stream function 
Vorticity 

Far upstream of blade row 
Far downstream of blade row 
Axial component 
Tangential component 
Average flow parameter 



NOMENCLATURE 


Subscripts 


IRE 


£ 


1.2,3 


ds 


R 


IR 


S 


E 

Superscripts 


Definition 

Relative inlet quantity 

Inlet to blade row 

Outlet from blade row 

Average quantity in the control volume 

Upstream of the shock 

Downstream of the shock 

Real part 

Imaginary part 

Irrotional component 

Shock 

Cascade exit 

Steady-state quantity 
Perturbation quantity 
Mean perturbation quantity 


Blade throat 
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